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

0 голосов
26 просмотров

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


image

Информатика (19 баллов) | 26 просмотров
Дано ответов: 2
0 голосов

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

(34 баллов)
0

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

0 голосов

Первая программа
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.

(22 баллов)
0

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

0

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.

0

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

0

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.

0

спасибо