Помогите пожалуйстаа!))))
5-9 класс
|
заполнить массив из 10 элементов случайными числами из интервала от -10 до 10 вывести на экран а затем увеличить каждый элемент массива на 1 и повторно вывести на экран
uses crt;
var i,j,m,n:integer;
a: array [1..200,1..200] of integer;
begin
clrscr;
writeln('введи размерность массива (кол-во столбцов и строк)');
readln (n,m);
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random (21)-10;
write (a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=a[i,j]+1;
write (a[i,j]:4);
end;
writeln;
end;
readln;
end.
Другие вопросы из категории
один месяц, вирус В заполняет 1 Гбайт за два месяца, вирус С заполняет 1 Гбайт
за три месяца, вирус Dзаполняет 1 Гбайт за шесть месяцев. На
компьютере одновременно обнаружены сразу все четыре вируса. Сколько гигабайт они заполнят за
один месяц?
номер участника цепочкой из нулей и единиц минимальной длинны, одинаковой для каждого спортсмена. Каков будет информационный обьем сообщения записанного устройством, после того как промежуточный финиш пройдет половина лыжников ?
Читайте также
натур. числа а также их количество.количество чисел не превышает 1000.программа должна вывести одно число:сумму всех чисел кратных 8 и оканч. на 4
ПОМОГИТЕ, ПОЖАЛУЙСТАА
Сколько страниц экрана может одновременно разместиться в видеопамяти при палитре из 256 цветов?
Как диаграмму из Microsoft Office Word 2007 вставить в презентациюю?
ПОМОГИТЕ ПОЖАЛУЙСТАА)))