ЗАПОЛНИТЬ МАССИВ С ИЗ 15 ЭЛЕМЕНТОВ СЛЕДУЮЩИМ ОБРАЗОМ: ПЕРВЫЕ ПЯТЬ ЭЛЕМЕНТОВ ВВЕСТИ С КЛАВИАТУРЫ ОСТАЛЬНЫЕ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ ИЗ ИНТЕРВАЛА [-6..6] МАССИВ РАСПЕЧАТАТЬ В СТРОЧКУ НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ КРАТНЫЙ ТРЕМ.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses crt;
var c: array [1..15] of integer; i,max : integer;
begin
write ('введите 5 чисел: ');
for i:=1 to 5 do begin read(c[i]); for i:=6 to 15 do begin c[i]:=-7+random(13); write(' ',c[i]);end;
c[1]:=max;
for i:=2 to 15 do begin if(c[i] mod 3 =0) then begin if(c[i]>max) then max:=c[i];end;end;
writeln('максимальное число,которое /3= ',max);
end.