Информатика: Повороты. Урок 1 ответьте на все 9 вопросов

victoria6178

26.05.2022 17:36

Информатика

Есть ответ 👍

Повороты. Урок 1
ответьте на все 9 вопросов

113

403

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

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

лена062

Информатика

4,6(54 оценок)

щя я просто первым быть хочу

НЕВЕСОМАЯ67

Информатика

4,8(22 оценок)

Вроде правильно const n= ; (поставь любое положительное число, это количество элементов в массиве) var a: array [1..n] of real; i: integer; min: real; begin for i: =1 to n do begin readln (a[i]); writeln ('a[i', i, ']=', a[i]); end; min: =a[i]; for i: =1 to n do if a[i] mod 3=0 then if a[i]< min then min: =a[i]; if (a[1]=min) and (a[1] mod 3< > 0) then writeln ('нет чисел, делящихся на 3') else writeln (min); end.