Регистрация
bamnames
14.06.2023 01:22
Информатика
Есть ответ 👍

Составьте программу позволяющую вводить с клавиатуры 6 целых чисел и определяющую наибольшее из них. !

144
221
Посмотреть ответы 3

Ответы на вопрос:

katyadrogochinskaya
katyadrogochinskaya
4,7(68 оценок)

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

 

Leonelle
Leonelle
4,4(44 оценок)

паскаль, одномерный массив

 

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

 

аааааааааппппппааааа
аааааааааппппппааааа
4,4(74 оценок)
Ответ под буквой "б"

Популярно: Информатика