Регистрация
aliskylivar
25.07.2022 18:19
Информатика
Есть ответ 👍

по Иформатике 1 и 2 и 3 задание заранее

106
368
Посмотреть ответы 2

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

coldon
coldon
4,7(59 оценок)

А можешь книгу сфоткать ничего не видно. И не понятно я обизательно дам ответ. Еше раз орправь из книго мой папа и форматик

ДианочкаР
ДианочкаР
4,6(77 оценок)
Program n1; const n=7 var a: array [1..n] of integer; i,p,min,indmin: integer; begin p: =1; for i: =1 to n do readln(a[i]); for i: =1 to n do p: =p*a[i]; min: =a[1]; for i: = 2 to n do begin if a[i] < min then begin min: =a[i]; indmin: =i; end; end; writeln(p); writeln(indmin,' ',min); end.

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