Question

Информатика (9 класс, написание программы).
4 ЗАДАНИЕ (НА ФОТО) В ПАСКАЛЕ.
Напишите программу пожалуйста!
Даю 60 баллов!

Answer 1

4.1
var
a:array [1..31] of integer;
i:integer;
begin
for i:= 1 to 31 do
a[i]:= Random(0,10);
writeln(a);
write('Осадков не было:');
for i:=1 to 31 do
if a[i]=0 then
write(i:3)
end.

4.2
var
a:array [1..20] of integer;
i,k,k1,k2:integer;
begin
for i:= 1 to 20 do
a[i]:= Random(0,10);
writeln(a);
write('Введите число k: ');
read (k);
for i:=1 to 20 do
if a[i] mod k = 0 then k1:= k1+1;
for i:=1 to 19 do
if a[i] <> a[20] then k2:= k2+1;
writeln('Количество элементов, кратных ',k,'(k) равно ',k1);
writeln('Количество элементов, отличных от последнего (',a[20],') равно ',k2)
end.

4.3
var
a:array [1..10] of integer;
i,k,j:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(-100,100);
writeln(a);
for i:=1 to 9 do
if a[i+1]<a[i] then
begin
k:= a[i];
a[i]:=a[i+1];
a[i+1]:=k
end;
writeln(a)
end.

Самым последним элементом массива будет его максимальный элемент.