Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
Устройства ввода информации обеспечивают ввод информации
Для ввода и вывода информации.
Клавиатура-устройство ввода,
Монитор-устройство вывода.
Визуализация вывод информации на
Принтер
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <math.h>
int main(void)
{float x;
scanf("%f",&x);
if(x<0)
printf("%f",pow(3+pow(x,5),0.5));
if(0<=x && x<=3)
printf("325");
if(x>3)
printf("%f",sin(x)-cos(x));
return 0;}
Пример ввода:
4
Пример вывода:
<span>-0.103159</span>
Паскаль:
var a:integer;begin ReadLn(a); if not (a mod 2 = 0) then WriteLn(a*2); if a > 7 then Writeln(Sqrt(a));end.