Помогите пожалуйста)
1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран
2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.
Ответы
Ответ дал:
1
1)
var L:array[1..9] of integer;
a:integer;
begin
for a:=1 to 9 do readln(L[a]);
for a:=1 to 9 do write(L[a],' ');
end.
2)
var L:array[1..22] of integer;
a:integer;
begin
randomize;
for a:=1 to 22 do L[a]:=random(40)+2;
for a:=1 to 22 do write(L[a],' ');
end.
var L:array[1..9] of integer;
a:integer;
begin
for a:=1 to 9 do readln(L[a]);
for a:=1 to 9 do write(L[a],' ');
end.
2)
var L:array[1..22] of integer;
a:integer;
begin
randomize;
for a:=1 to 22 do L[a]:=random(40)+2;
for a:=1 to 22 do write(L[a],' ');
end.
GDZsearcher:
random (41)
Ответ дал:
1
{1. Заполните массив L [9] с клавиатуры числами 105, 126, 134, 176, 181, 193, 132, 144, 156 и ввести на экран }
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
var L:array [1..9] of byte;
n,i:byte;
begin
N:=9;
{считываем с клавиатруры N чисел}
writeln('введите масссив');
for i:=1 to n do read(L[i]);
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(L[i]:7);{7 позиций под число}
end.
{2 . заполнить массив К [22] случайными числами в интервале от 2 до 42 и вывести его на экран.}
var K:array [1..22] of byte;
n,i:byte;
begin
N:=22;
randomize;
for i:=1 to n do k[i]:=2+random(41);{если включая [2,42]}
writeln;
writeln('Массив:');
{вывод на экран массива}
for i:=1 to n do write(K[i]:7);{7 позиций под число}
end.
Вас заинтересует
10 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад