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

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

Игорь Самунджен 2019-08-21 03:41:59

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

Егор Кукалов 2019-08-21 03:51:14

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.

Анна Дуделит 2019-08-21 03:52:25

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

Валя 2019-08-21 03:54:11

var a: array [1..20] of integer; i: integer;begina[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.

Афонько Людмила 2019-08-21 04:00:37

спасибо

Sofja · Answer 2 · 2019-08-21 03:38:35+3:00

Sofja 2019-08-21 03:38:35

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

Ромик Белашников 2019-08-21 04:01:54

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

О проекте

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

Добро пожаловать!