Const n=20; var a:array [1..n] of integer; k,i:integer; begin writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(90)+10; write(a[i],' '); end; writeln; k:=0; for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln('В массиве ',k,' четных чисел'); writeln('Элементы с нечетными номерами:'); for i:=1 to n do if i mod 2 <> 0 then write(a[i],' '); end.
{ s(трапеции) = ((a+b)/2)*h; } uses crt; var a, b, h: Integer; (Real) s: Real; begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end. Если же а и б должны быть обязательно меньше h, то: if (a < h) and (b < h) then begin WriteLn('Введите а: ',a);ReadLn(a); WriteLn('Введите b: ',b);ReadLn(b); WriteLn('Введите h: ',h);ReadLn(h); s:= ((a+b)/2)*h; WriteLn('S = ', s); ReadLn; end; else begin WriteLn('Основания не меньше h!'); ReadLn; end;
Нажми Win+R и введи cmd
Объяснение:
Это что то похожее на утилиту DOS но это не DOS а командная строка