Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Опишите двумерный действительный массив с именем z, состоящий из 5 столбцов и 8 строк

Алексей Захаров Профи (852), на голосовании 7 лет назад
Опишите двумерный действительный массив с именем z, состоящий из 5 столбцов и 8 строк

Задайте значение элемента массива N[i, k] датчиком случайных чисел из промежутка от -62 до 27 включительно
Голосование за лучший ответ
Кублен Оракул (97068) 7 лет назад
примени эту программу
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(100)-62;
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('Zadacha na massiv ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)-62;
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.
Lenar Гуру (3269) 7 лет назад
const m=8;n=5;
var z:array [1..m,1..n] of integer;
i,k:integer;
begin
for i:=1 to m do begin
for k:=1 to n do
begin
z[i,k]:=random(90)-62;
write(z[i,k]:5);
end; writeln; end;
end.
Похожие вопросы