Паскаль! ! с одного цикла сформировать и вывести два одномерных массива размерностью по 8 элементов каждый. массивы заполнить по формулам: а[i]=i^2+1 b[i]=2•i-1
Var a,b:array[1..8] of integer; i,x:integer; s:string; begin writeln('Первый массив:'); for i:=1 to 8 do begin x:=sqr(i)+1; a[i]:=x;write(x,' '); x:=2*i-1; b[i]:=x;s:=s+IntToStr(x)+' '; if i=8 then begin writeln;writeln('Второй массив:');writeln(s); end; end; end.
Uses Crt; const n=300; type V=array[1..n,1..3] of 0..5; function Cnt4(var a:V):integer; { Количество учеников со средним выше 4 } var i,j,k:integer; sb:real; begin k:=0; for i:=1 to n do begin sb:=0; for j:=1 to 3 do sb:=sb+a[i,j]; sB:=sb/3; if sb>4 then Inc(k); end; Cnt4:=k end;
var i,j:integer; M:V; begin ClrScr; Writeln('Для каждого ученика вводите через пробел три его оценки'); for i:=1 to n do begin Write(i,': '); for j:=1 to 3 do Read(M[i,j]) end; Write('Количество учеников со средним выше 4: '); Writeln(Cnt4(M),' '); ReadKey end.
Begin Writeln('Введите имя игрока '); var name := ReadString; Writeln('Введите сумму '); var sum := ReadInteger; while True do begin Writeln('Введите ставку от ', 1, ' до ', sum); var stavka := ReadInteger; if stavka > sum then writeln('Ставка не может превышать имеющиеся наличные') else begin sum -= stavka; Writeln('Введите число от 1 до 36'); var number := random(1, 36); var getnumber := ReadInteger; if (getnumber < 1) or (getnumber > 36) then Writeln('Неверное число. Вы потеряли ставку!') else if number = getnumber then begin Writeln('Вы угадали! Вы получаете 36х ставку'); sum += (36 * stavka); end else Writeln('Не угадали. Вы потеряли ставку!') end; writeln; Writeln('Имя игрока ', name); Writeln('Текущие деньги ', sum); writeln; if (sum <= 0) then begin Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз'); break; end; end; end.
a,b:array[1..8] of integer;
i,x:integer; s:string;
begin
writeln('Первый массив:');
for i:=1 to 8 do begin
x:=sqr(i)+1;
a[i]:=x;write(x,' ');
x:=2*i-1;
b[i]:=x;s:=s+IntToStr(x)+' ';
if i=8 then begin
writeln;writeln('Второй массив:');writeln(s);
end;
end;
end.