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

как заполнить двумерный массив случайными значениями?

Марк Видука Ученик (20), закрыт 13 лет назад
И вывести массив на экран?
Ответьте пожалуйста хоть на что-нибудь.
Дополнен 15 лет назад
Turbo Pascal
Лучший ответ
Николай Владимирович Мыслитель (5167) 15 лет назад
for i=1 то 10
for j=1 то 10
а ((i,j)= rnd*100+50
print a(i,j)
next j
next i
end
Остальные ответы
Marvin Профи (967) 15 лет назад
гы, а пишеш на чем?
дельфи - randomize
C++ -rand()%<любое_число>
basic - тоже randomize кажется

перебираеш индексы массива в цикле, и присваиваеш ему значение. все гуд.
karapuz Гуру (3558) 15 лет назад

Код:

uses crt;
const n=5; m=5;
var a:array [1..m,1..n] of integer;
i,j:integer;
s,q:real;
begin
clrscr;
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(2*20+1)-20;
s:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+a[i,j];
q:=s/(n*m);
s:=0;
for i:=1 to m do
for j:=1 to n do
s:=s+sqr(a[i,j]-q);
q:=sqrt(s/(n*m));
for i:=1 to m do begin
for j:=1 to n do
write(a[i,j]:7);
writeln;
end;
write('Среднекв. откл. =',q:0:3);
readln;
end.

Вроде так.
Frip Мастер (1559) 15 лет назад
Вот пример массива на вывод на экран 20 случайных числе от 1 до 99
PROGRAM MASSIV;
VAR M: ARRAY[1..20] OF INTEGER;I:INTEGER;
BEGIN
RANDOMIZE;
FOR I: =1 TO 20 DO
BEGIN
M: =RANDOM(100);
WRITE (M:3)
END;
READLN;
END

(pascal)
Похожие вопросы