Написать программу, которая заполняет два одномерных массива случайными числами. получить третий массив, элементы которого равны произведению соответствующих элементов исходных массивов. pascal abc
Const n=15; { длина массива } type tm=array[1..n] of integer; var i:byte; a,b,c:tm; begin randomize; for i:=1 to n do begin a[i]:=random(101-50); b[i]:=random(101-50); c[i]:=a[i]*b[i]; Write(a[i],' ') end; Writeln; for i:=1 to n do begin Write(b[i],' ') end; Writeln; for i:=1 to n do begin Write(c[i],' ') end; Writeln end.
Описывается список с полями согласно заданию type student = Record fam: String; inn: string; Year: integer; god_p: integer; kurs: 1..5; gruppa: string; b1, b2, b3: 1..5; End;
Объявляются необходимые переменные и массив с типом записи var spisok: Array [1..N] Of student; b, a: string; i, j, k1: Integer; И заполняется от 1 до N (N=5 установлена константа) for i := 1 To N Do // идем от 1 до N и заполняем список with spisok[i] Do begin Writeln('Введите фамилию');Readln(fam); {} end; Потом обрабатывается согласно заданию по вариантам Скорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО) Затем выводится 3 фамилии самых молодых
for i := 1 to 3 do begin write(spisok[i].fam); writeln; end;
Program z1; Uses Crt; Var z:integer; Begin ClrScr; writeln('1*2=?'); readln(z); if z=2 then writeln('Верно!') else writeln('Не верно! 1*2=2'); writeln('2*3=?'); readln(z); if z=6 then writeln('Верно!') else writeln('Не верно! 2*3=6'); writeln('3*6=?'); readln(z); if z=18 then writeln('Верно!') else writeln('Не верно! 3*6=18'); writeln('4*7=?'); readln(z); if z=28 then writeln('Верно!') else writeln('Не верно! 4*7=28'); writeln('5*9=?'); readln(z); if z=45 then writeln('Верно!') else writeln('Не верно! 5*9=45'); writeln('6*4=?'); readln(z); if z=24 then writeln('Верно!') else writeln('Не верно! 6*4=24'); writeln('7*7=?'); readln(z); if z=49 then writeln('Верно!') else writeln('Не верно! 7*7=49'); writeln ('8*6=?'); readln(z); if z=48 then writeln('Верно!') else writeln('Не верно! 8*6=48'); writeln('9*4=?'); readln(z); if z=36 then writeln('Верно!') else writeln('Не верно! 9*4=36'); writeln('10*8=?'); readln(z); if z=80 then writeln('Верно!') else writeln('Не верно! 10*8=80'); readln; end.
n=15; { длина массива }
type
tm=array[1..n] of integer;
var
i:byte;
a,b,c:tm;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(101-50);
b[i]:=random(101-50);
c[i]:=a[i]*b[i];
Write(a[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(b[i],' ')
end;
Writeln;
for i:=1 to n do
begin
Write(c[i],' ')
end;
Writeln
end.