Ответы на вопрос:
press anykey - забиндиная (кнопка нажатие которого отвечает какое либо действие)
Объяснение:
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.
Популярно: Информатика
-
xXDenchykXx121.11.2020 13:49
-
Юока03.02.2022 04:31
-
MashaYamg23.07.2022 18:54
-
Лубничка13.10.2020 02:33
-
eeee193106.08.2020 04:28
-
daimon70829.09.2021 22:29
-
Anastasiay8017.07.2020 05:13
-
ndzandigiv02.10.2021 03:14
-
tbabkova08403.10.2021 16:03
-
Евангелина1234523.04.2023 18:12