помогите пожалуйста, в Паскаль abs, 2 и 4 задания
Помогите пожалуйста, в Паскаль abs, 2 и 4 задания
![](/content/imgs/109/https://ru-static.z-dn.net/files/da3/ac5a5fb452e923d39e0c2728a2987791.jpg)
2 ответа
Олег Балаж
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.
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.
Игорь Самунджен
спасибо)мы уже решили классом 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;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.
Афонько
Людмила
спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Облако тегов