Please enable JavaScript.
Coggle requires JavaScript to display documents.
Одномерный массив (Заполнение (С клавиатуры, Генератором чисел), Вывод на…
-
Это упорядоченный набор однотипных элементов, имеющих общее имя
-
-
For K:= 1 to N do write (m[K],' ');
-
Program mas;
var m: array [1..10] of integer;
k: integer;
begin
for k:=1 to 10 do readln (m[k]);
writeln ('масcив');
for k:=1 to 10 do write (m[k],' ');
writeln;
end.
Program dva;
var m: array [1..10] of integer;
k: integer;
begin
Randomize;
for k:=1 to 10 do m[k]:=random(100);
writeln ('массив');
for k:=1 to 10 do write (m[k],' ');
writeln;
end.
Program mas;
var m: array [1..10] of integer;
k: integer;
begin
for k:=1 to 10 do readln (m[k]);
writeln ('масcив');
for k:=1 to 10 do writeln (m[k]);
writeln;
end.
Program mas;
var m: array [1..10] of integer;
k: integer;
begin
for k:=1 to 10 do readln (m[k]);
writeln ('масcив');
for k:=1 to 10 do write (m[k],' ');
writeln;
end.
nMax:=1;
for k:=1 to 10 do
if m[k]>m[nMax] then
nMax:=k;
write('m[', nMax, ']=',m[nMax]);
Program mas;
var m: array [1..10] of integer;
k: integer;
nMax: integer;
begin
for k:=1 to 10 do m[k]:=random(10);
writeln ('масcив');
for k:=1 to 10 do
write (m[k],' ');writeln;
nMax:=1;
for k:=1 to 10 doif m[k]>m[nMax] then
nMax:=k;
write('m[', nMax, ']=',m[nMax]);
end.