1. Program enot;
Var A: array[1..8] of real;
i:integer;
begin
for i:= 1 to 8 do
begin
a[i]:=random(41)-20;
writeln(a[i]:8:3);
end;
end.

2. Program fg;
Var a: array [1..13] of integer;
i:integer;
begin
writeln('первоночальный массив: ');
for i:= 1 to 13 do
begin
a[i]:=random(13)+5;
writeln(a[i], ' ');
end;
writeln('получившийся массив: ');
for i:= 13 downto 1 do
writeln(a[i],' ');
end.

3.
Program enot;
Var a: array [1..7] of integer;
i:integer;
begin
for i:= 1 to 7 do
begin
a[i]:=random(25)+104;
writeln(a[i]);
end;
end.

0 0

3 года назад

Помогите написать программу в паскале!!!! Написать программу в паскале: В одномерном массиве из 10 целых чисел вычислить сумму ч

Настасьевна [4.2K]

Var a: array[1..10] of integer; sum, i: integer;beginsum:=0;for i:=1 to 10 do begin readln(a[i]); if a[i] mod 2=0 then sum:= sum+a[i]; end;write(sum);end.

0 0

3 года назад

Заполните таблицу.укажите для каждого примера информационный носитель и форму представления информации

ИгорьАлла [7]

Где таблица ааааааааааааааааааааааааааааа ?

0 0

4 года назад

Проверьте умоляю, кто знает!! Импликация!!

Светлана Миллер [29]

Ну, если речь идет о поразрядной импликации -91 в дополнительном коде и 15, то, вроде, правильно.

Но меня вопрос насчет необходимости учета знаковых разрядов. В дополнительном коде они должны быть, а в Вашем решении их нет.

Поэтому было бы хорошо увидеть не только решение, но и само задание.

0 0

4 года назад