Program prog;
Uses crt;

var a: array [0..29] of integer;
max, min, i: integer;

begin;
clrscr;
randomize;

max:=-201;
min:=201;

for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;

writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.

0 0

4 года назад

Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые

юрманкарман

var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.

если что то не понятно,спрашивай)

0 0

4 года назад

Сообщение которое кодируется символами:<точка>и<тире> создаётся при помощи А) азбуки Брайля Б) азбуки Морзе В) дво

ruslan80 [54]

Это азбука Морзе.....

0 0

3 года назад

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

Перед тобой число в двоичной системе. Выбери, какое это число в десятичной системе. 10

NastyAlesh

10₂ = 1 * 2^1 + 0 * 2^0 = 2₁₀.

0 0

4 года назад