Сформировать одномерный массив из элементов массива T (4,4), умноженных на 0,25

Question

Информатика

Нуня

24 октября, 21:53

Сформировать одномерный массив из элементов массива T (4,4), умноженных на 0,25

+3

Ответы (1)

Знаете ответ на вопрос?

Авдотьюшка · Answer 1

var

a:array [1 ... 16] of real;

t:array [1 ... 4,1 ... 4] of integer;

i, j, k:byte;

begin

randomize;

for i:=1 to 4 do begin

for j:=1 to 4 do begin

t[i, j]:=random (9) + 1;

write (t[i, j]:4) ;

end;

writeln;

end;

k:=1;

for i:=1 to 4 do

for j:=1 to 4 do begin

a[k]:=t[i, j]*0.25;

write (a[k],' ') ;

k:=k+1;

end;

readln;

end.