Водномерном массиве попарно размещены на первом месте значение аргумента. на втором-значение функции.напечатать эти значения так,в первом столбике-аргумент,во втором,функция
Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива
program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=7; var a:array [0..n] of integer; i:integer; begin randomize; for i:=0 to n do a[i]:=Random(100); Writeln('X F(X)'); for i:=0 to n do begin if i mod 2 <> 0 then Continue; write(a[i],' ',a[i+1]); Writeln; end; readln; end.
var a:array [1..9] of real; i,k:integer; j:real; begin randomize; writeln('Массив:'); for i:=1 to 9 do begin a[i]:=(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('Массив после увелечения минимального элемента на 100:'); k:=1; for i:=2 to 9 do if a[i]<a[k] then k:=i; a[k]:=a[k]+100; for i:=1 to 9 do write(a[i],' '); writeln; writeln('Массив после престановки максиального элемента с первым:'); j:=a[1]; a[1]:=a[k]; a[k]:=j; for i:=1 to 9 do write(a[i],' '); writeln; end.
3 задание var a:array [1..10] of integer; i,mn,mx:integer; begin writeln('Введите массив:'); for i:=1 to 10 do readln(a[i]); mn:=1; mx:=1; writeln('Массив'); for i:=1 to 10 do begin if a[i]<a[mn] then mn:=i; if a[i]>a[mx] then mx:=i; write(a[i],' '); end; i:=a[mx]; a[mx]:=a[mn]; a[mn]:=i; writeln; writeln('Массив после престановки:'); for i:=1 to 10 do write(a[i],' '); writeln; end.
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=7;
var a:array [0..n] of integer;
i:integer;
begin
randomize;
for i:=0 to n do
a[i]:=Random(100);
Writeln('X F(X)');
for i:=0 to n do
begin
if i mod 2 <> 0 then Continue;
write(a[i],' ',a[i+1]);
Writeln;
end;
readln;
end.