Заполнить массив произвольными числами. Вывести полученный массив на экран. ( Delphi7).
10-11 класс
|
program Project1;
const N = 10;
var a :array [1..N] of integer;
i :integer;
begin
randomize;
for i := 1 to N do
a[i]:= random(100);
for i := 1 to N do
write(a[i],' ');
end.
Другие вопросы из категории
Читайте также
Удвоить все элементы матрицы и вывести ее на экран.
Найти минимальные и максимальные элементы в матрице, указать номера.
Просто матрица и удвоенная есть. Теперь нужно найти мин. и макс. значения
program ff;
uses crt;
const n=8;
m= 5;
var a:array [1..n, 1..m] of integer;
i,j:integer;
begin
writeln ('Матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 do begin a[i,j]:=-10+random(21);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 5 do
a[i,j]:=a[i,j]*2;
writeln ('Удвоенная матрица:');
for i:=1 to 8 do begin
for j:=1 to 5 dowrite(a[i,j]:4);
writeln;
end;
end.
Удвоить все элементы матрицы и вывести ее на экран.
Даны два символа (латинские буквы). Вывести их на экран в порядке возрастания по алфавиту.
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)
Даны три числа, вывести их на экран в порядке возрастания.