В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Анечка12311
Анечка12311
17.02.2023 11:43 •  Информатика

, можно чтобы по понятнее было


, можно чтобы по понятнее было

Показать ответ
Ответ:
raitilianna
raitilianna
06.12.2022 07:37
Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. Ну и переменные смотри

var   
a : array [1..200] of longint;   
p,max : integer;   
n,i,j : integer; 
begin 
readln (n); 
p := 1;     // 1 
max := 0;   // 2 3   
for i := 1 to n do   
begin     
readln (a[i]);      
p := p * a[i];  // 1     
if a[i] > max then //2 3       
begin                 //2 3
max := a[i]; // 2 3       
j := i; //3       
end;       // 2 3
end;     
writeln (p); //1   
writeln (max); //2   
writeln (j); //3 
end.
0,0(0 оценок)
Ответ:
дарья1645
дарья1645
06.12.2022 07:37
1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
        p:=p*a;
   end;
writeln(p);
end.

2)
var
i,n:integer;
a,max:longint;
begin
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
            if a>max then
                max:=a;
   end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
    readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
   begin
        readln(a);
            if a<min then
                min:=a;
   end;
writeln(min);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота