Помогите пожалуйста, в Паскаль абс, 2 и 4 задания
1234=55-4452 это ответ на второй номер
эммм... вообще-то надо составить программу
Первая программа 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.
спасибо)мы уже решили классом 1 и 3 задачи,не могли бы вы помочь со 2 и 4?)
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.
блин,спасибо конечно огромное,но мы тип еще такое не проходили,нам надо более просто
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.
спасибо