Program n_66; var x, max: real; i: integer; begin writeln ('введите число'); readln (max); for i: =1 to 9 do begin writeln (x); if x> max then max: =x end writeln ('максимум -', max'); end. встречено 'writeln' а ожидалось '; '

271

306

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

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

ruslan428

Информатика

4,4(95 оценок)

После первого "end" поставь ; если не скажи

НЕВЕСОМАЯ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.