Перезаписать элементы массива по условию


Дан массив целых чисел M(40). Переписать элементы массива, кратные 5, в массив М5. Если такие элементы отсутствуют, то вывести на экран соответствующее уведомление.

Program perezapisat;
const n=40;
var
A:array [1..n] of integer;
B:array [1..n] of integer;
i,k:integer;
begin
writeln();
k:=0;
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
if a[i] mod 5 = 0 then begin
k:=k+1;
b[k]:=a[i];
end;
end;
writeln();
if k=0 then writeln(’Net kratnih elementov’)
else for i:=1 to k do write(b[i],’ ‘);
end.

Теги: , ,

Массив умножить на максимальный элемент


Даны целые числа A(k). Все члены последовательности, которые находятся перед первым максимальным элементом, умножить на максимальный элемент.

Program massiv;
const n=10;
var
A:array [1..n] of integer;
i,k:integer;
begin
writeln();
for i:=1 to n do begin
A[i]:=random(100);
write(a[i],’ ‘);
end;
writeln();
k:=1;
for i:=2 to n do
if a[k]<a[i] then k:=i;
for i:=1 to n do begin
if i>k then a[i]:=a[i]*a[k];
write(a[i],’ ‘);
end;
end.

Теги: , , ,

«1234567891011121314151617181920»