1. Информатика
  2. Известна масса 12 предметов

Известна масса 12 предметов определить массу самого большого. паскаль

Zharkov12345 Zharkov12345    1   17.09.2019 21:20    2

Ответы
sveta05011 sveta05011  07.10.2020 22:41
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Danik119200 Danik119200  14.08.2019 13:50
Для какого из значений числа x истинно высказывание: (x 7) и не (x 6)? 1) 4 2) 5 3) 6 4) 7...
jul45 jul45  21.05.2020 11:36
В таблице приведены за к поисковому серверу. Для каждого за указан его код — соответствующая буква от А до Г. Расположите коды за слева направо в порядке убывания количества страниц,...
221451 221451  21.05.2020 11:35
Задача 1: Найти сумму первых 10 чисел с цикла FOR Задача 2: Найти произведение первых 10 чисел с цикла FOR...
Lerkalerusya Lerkalerusya  21.05.2020 11:32
Дана программа: var s, t: integer; begin readln(s); readln(t); if (s 2) and (t 5) then writeln( ДА ) else writeln( НЕТ ); end.Было проведено 9 запусков программы, при которых в...
Grelil55 Grelil55  10.06.2019 08:30
Дано расстояние l в сантиметре,используя операцию деления на цело найти количество полных метров в нём...
karolsevilla384 karolsevilla384  10.06.2019 08:30
На паскале прочитать из файла (input.dat) список имён. в файл (output.dat) перенести только уникальные имена....
Feruzzz Feruzzz  03.03.2019 12:37
3. используя оператор цикла for составить программу для нахождения значения y: у = 3cosx + sin2x на интервале [-1; 1]...
nvlasc nvlasc  03.03.2019 12:42
1.ипполит задумал трёхзначное число, которое при делении на 15 даёт в остатке 11, а при делении на 11 даёт в остатке 9. напишите программу, которая находит все такие числа. в паскале....
Alon4ik123 Alon4ik123  03.03.2019 12:43
Решите 5 и 6 , желательно на языке кумир...
artemgavrev artemgavrev  11.08.2019 23:00
Напишите 20 предложений о труде ( не пословицы ! ) , заранее !...

Популярные вопросы