Uses crt;
const N=20;
var
i,A,x: integer;
arr: array [1..N] of integer;
begin
clrscr;
x:=0;
write ('A=');
readln (A);
writeln ('Array: ');f
or i:=1 to N do
begin
arr[i]:=random(41)-20;
write (arr[i],' ');
end;
for i:=1 to N do
begin
if (arr[i]>=0) and (arr[i]<=A) then
x:=x+1;
end;
writeln ();
writeln ('Answer: ',x);
readln ();
<span>end.</span>

0 0

4 года назад

Cколько байтов в компьютерной памяти займёт слово «город»?

butist

5байтов займет слово 《город》

0 0

4 года назад

1 тбайт это а)1024гбайт,б1024пбайт,в)1000гбайт, г)1000пбайт срочно зарание спасибо:-D

Алексей Маслов

A....................

0 0

3 года назад

Прочитать ещё 2 ответа

Последовательно вводятся n целых чисел. Найдите максимальное из них Помогите пожалуйста

olki7u [50]

Var
N, X, Max, i: Integer;
Begin
Max := 0;
WriteLn('Введите количество чисел N: ');
Read(n);
WriteLn('Введите N чисел: ');
For i := 1 To N Do
Begin
Read(X);
If X > Max then Max := x;
End;
WriteLn('Максимальное: ', Max);
End.

0 0

4 года назад

Прочитать ещё 2 ответа