program massive;
const
x=2;
y=3;
var
f: array [1..x,1..y] of integer;
i,j,s:integer;
begin
randomize;
s:=0;
for i:=1 to x do
begin
for j:=1 to y do
begin
f[i,j]:=random(-130,130);
write(f[i,j],' ');
end;
writeln;
end;
for i:=1 to x do
for j:=1 to y do
if f[i,j] mod 5 <> 0 then
s:=s+1;
if s=0 then
writeln('Все элементы fкратны 5')
else
writeln('Элементов не кратных 5: ',s);
end.
1) Заполняем массив случайными элементами
2) Проверяем каждый элемент на кратность 5
3) И считаем их количество
![Заполнить двумерный массив f размером x*y целыми случайными числами из промежутка [-130; 130] и выве](/tpl/images/0978/5109/93739.jpg)
Держи
var x1,x2,x3,x4,sum,max,min:integer;
Begin
read(x1,x2,x3,x4);
sum:=x1+x2+x3+x4;
if x1>x2 then max:=x1 else max:=x2;
if max<x3 then max:=x3;
if max<x4 then max:=x4;
if x1<x2 then min:=x1 else min:=x2;
if min>x3 then min:=x3;
if min>x4 then min:=x4;
writeln(max);
writeln(min);
writeln(sum);
End.
через массив
var a: array[1..4]of integer;
sum,i,max,min:integer;
Begin
min:=2147483647; (если в задачи есть предел возможного ввода числа ,то нужно поменять min на предел числа+1)
max:=0;
sum:=0;
For i:=1 to 4 do
Begin
read (a[i]);
sum:=sum+a[i];
End;
For i:=1 to 4 do
if a[i]>max then max:=a[i];
For i:=1 to 4 do
if a[i]<=min then min:=a[i];
writeln(max);
writeln(min);
writeln(sum);
End.
