Дан одномерный массив чисел. hайти количество элементов массива, превосходящих по модулю заданное число а, изменить знак максимального элемента на противоположный, найти количество элементов массива, кратных 5
Program programma; uses crt; var b:array[1..100]of integer; i,n,a,max,k,t:integer; begin clrscr; write('Введите размер массива N = '); readln(n);
write('Введите число A = '); readln(a); for i:=1 to n do begin write('b[',i,'] = '); readln(b[i]); end;
for i:=1 to n do begin if abs(b[i])>a then k:=k+1; if b[i] mod 5=0 then t:=t+1; end;
writeln; writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k); writeln('Количество элементов массива, кратных 5 = ', t);
for i:=1 to n do begin if b[i]> max then max:=b[i]; end;
for i:=1 to n do begin if b[i]= max then begin write (-max,' '); end else write(b[i],' '); end;
Type Massiv=array[1..100] of integer; var a,b:Massiv; n,i,j,p:integer; begin randomize; write('Ввод n='); readln(n); writeln('Нужно неубывание (1) или невозрастание (2)?'); readln(p); if p=2 then p:=-1; writeln('Массив:'); a[1]:=random(20)-5; for i:=2 to n do a[i]:=a[i-1]+p*random(5); write('('); for i:=1 to n do write(a[i],' '); write(')'); writeln;
i:=1; j:=0; while i<n do begin if a[i]=a[i+1] then begin inc(j); b[j]:=a[i]; end; while (i<n)and(a[i]=a[i+1]) do inc(i); inc(i); end; writeln('Новый массив:'); for i:=1 to j do write(b[i]:4); readkey End.
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),1,9); a.Println; var d:=new dictionary<integer,integer>; foreach var e in a do d[e]:=d.Get(e)+1; var s:=d.Where(x->x.Value>1).Select(x->x.Key); if s.Count=0 then Writeln('Нет дублирующихся элементов') else begin Write('Дублирующиеся элементы: '); s.Println; Write('В порядке возрастания: '); s.Sorted.Println end end.
uses crt;
var
b:array[1..100]of integer;
i,n,a,max,k,t:integer;
begin
clrscr;
write('Введите размер массива N = ');
readln(n);
write('Введите число A = ');
readln(a);
for i:=1 to n do
begin
write('b[',i,'] = ');
readln(b[i]);
end;
for i:=1 to n do
begin
if abs(b[i])>a then k:=k+1;
if b[i] mod 5=0 then t:=t+1;
end;
writeln;
writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k);
writeln('Количество элементов массива, кратных 5 = ', t);
for i:=1 to n do
begin
if b[i]> max then max:=b[i];
end;
for i:=1 to n do
begin
if b[i]= max then begin
write (-max,' '); end
else
write(b[i],' ');
end;
end.