Задан массив x(5,3). преобразовать его: все элементы, кратные числу 5, заменить нулями, затем найти сумму элементов полученного массива. вывести на печать исходный и полученный массивы.
Const N = 5; M = 3; Var X:array[1..N,1..M] of integer; i,j:integer; S:real; Begin Randomize; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin X[i,j]:=random(41)-20; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('Новый массив:'); For i:= 1 to N do Begin For j:=1 to M do Begin if X[i,j] mod 5 = 0 then X[i,j]:=0; S:=S+X[i,j]; Write(X[i,j]:3,' ') End; WriteLn End; WriteLn('S = ',S); ReadLn End.
var a: array[1..MAX_SIZE] of integer; i, size: integer;
procedure delete_odd_elements(); var i, j: integer; begin i := 1; repeat if odd(a[i]) then begin dec(size); for j := i to size do a[j] := a[j + 1] end else inc(i); until i > size; end;
begin writeln('Исходный массив: '); size := MAX_SIZE; for i := 1 to size do begin a[i] := random(100); write(a[i] : 3); end; delete_odd_elements; writeln; writeln('Полученный массив: '); for i := 1 to size do write(a[i] : 3); end.
1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
N = 5;
M = 3;
Var
X:array[1..N,1..M] of integer;
i,j:integer;
S:real;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
X[i,j]:=random(41)-20;
Write(X[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('Новый массив:');
For i:= 1 to N do
Begin
For j:=1 to M do
Begin
if X[i,j] mod 5 = 0 then X[i,j]:=0;
S:=S+X[i,j];
Write(X[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('S = ',S);
ReadLn
End.