Карп
4 год назад
Нужен псевдокод к коду: (паскаль)program z1;var a:array [1..100,1..100] of integer;b:array [1..100] of integer;n,m,i,j,s:integer;beginwrite ('Введите количество строк (n<=100) ');read (n);write ('Введите количество столбцов (m<=100) ');read (m);writeln ('Массив А');for i:= 1 to n dobeginfor j:=1 to m dobegina[i,j]:=Random(19)-9;write(a[i,j]:4)end;writelnend;for j:= 1 to m dobegins:=0;for i:=1 to n do if (a[i,j]>0) and (a[i,j] mod 2 = 0) then s:=s+a[i,j];b[j]:=send;writeln ('Массив B');for j:= 1 to m do write (b[j]:4)end.
ОТВЕТЫ
Аким
Oct 24, 2020
Var a,b:array [1..100,1..100] of real;
current_row,current_column,rows,columns:integer;
begin
readln(rows);
readln(columns);
for current_row := 1 to rows do begin
writeln();
for current_column := 1 to columns do begin
read(a[current_row,current_column]);
b[current_row,current_column] :=a [current_row,current_column] / 8;
end;
end;
for current_row := 1 to rows do begin
writeln();
for current_column := 1 to columns do
write(b[current_row,current_column]:4, ' ');
end;
end.
715
Смежные вопросы:
