Question

помогите пожалуйста, в Паскаль абс, 2 и 4 задания

Answer 1

1234=55-4452 это ответ на второй номер

Answer 2

эммм... вообще-то надо составить программу

Answer 3

Первая программа
var arr1: array [1..15] of integer; i: integer;beginfor i:=1 to 15 do beginarr1[i]:=random(-30,50);if arr1[i] < 0 then Writeln(arr1[i]);end;end.

Answer 4

спасибо)мы уже решили классом 1 и 3 задачи,не могли бы вы помочь со 2 и 4?)

Answer 5

var arr1: array [1..10] of integer; i: integer;
begin for i:=1 to 10 do Readln(arr1[i]);
Writeln;
for i:=1 to 10 do if (arr1[i] > 20) and (arr1[i] < 45) then Writeln(arr1[i]);
end.

Answer 6

блин,спасибо конечно огромное,но мы тип еще такое не проходили,нам надо более просто

Answer 7

var a: array [1..20] of integer; i: integer;
begin
a[1]:=-4; a[2]:=-3;
for i:=3 to 20 do a[i]:=a[i-2]+a[i-1];
for i:=1 to 20 do Writeln(a[i]);
end.

Answer 8

спасибо