Составьте программу на языке Паскаль с которой в массиве размерностью 4 на 5 будут занесены имения учеников класса. Вывести массив на экран в виде таблицы
Const n=10; var i,j,k,mx,ind: integer; a: array[1..n] of integer; begin writeln('исходный массив:'); randomize; mx:=0; for i:=1 to n do begin a[i]:=random(2*n)-n; write(a[i],' '); if a[i]>mx then begin mx:=a[i]; ind:=i; end; end; writeln; for i:=ind+1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; end; writeln('новый массив:'); for i:=1 to n do write(a[i],' '); end.
program Schoolar;
var
i,j,n:integer;
begin
Write('n = '); Readln(n);
for i:=1 to n do begin
for j:=1 to 50 do
if j mod 2 = 0 then Write(j,' ');
Writeln
end
end.
Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop ReadInteger('n =') do Range(2,50,2).Println
end.
Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50