var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); end; end.
Задача №2
var a:array [1..20] of integer; i:integer; begin writeln('Введите числа в интервале [-20;29]'); for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>-29) and (a[i]<20) then write(a[i],' '); end.
Задача №3
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+1; end; writeln('Количество положительных элементов массива = ', sum); end.
Задача №4
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; if a[i]<0 then a[i]:=0; write (a[i],' '); end; end.
Задача №5
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов массива = ', sum); end.
// PascalABC.NET 3.0, сборка 1128 begin var a:=ArrRandom(20,-10,19); a.Println(','); // 1 var b:=ReadArrInteger('Введите 10 целых чисел',10); // 2 Writeln('Количество положительных элементов ', a.Where(x->x>0).Count); // 3 for var i:=0 to 19 do if a[i]<0 then a[i]:=0; Writeln('Массив А после замены отрицательных'); a.Println(','); //4 Writeln('Сумма положительных элементов ', a.Where(x->x>0).Sum) // 5 end.
Тестовое решение: 14,8,9,-5,6,3,3,-10,-8,18,7,13,2,17,-1,0,4,-3,8,-8 Введите 10 целых чисел -5 0 13 -7 -14 11 8 19 -3 -1 Количество положительных элементов 13 Массив А после замены отрицательных 14,8,9,0,6,3,3,0,0,18,7,13,2,17,0,0,4,0,8,0 Сумма положительных элементов 112
Есть снег для лепки снеговика?
Нет - выполнение невозможно.
Есть, то:
слепить три разновеликих шара;
установить шары друг на друга в порядке убывания;
сверху установить ведро дном вверх;
в центр верхнего шара установить морковь, над ней два уголька-глаза;
по бокам среднего шара вставить веточки-ручки.
Фигуры блок-схемы
Последовательность фигур может меняться в зависимости от требуемых условий и действий:
овал - обозначает начало блок-схемы и содержит само слово "начало" - ограничивающий символ;
параллелограмм - символ ввода-вывода данных;
прямоугольник обозначает действие - символ выполнения операции;
ромб - фигура, содержащая условие, после которой происходит ветвление алгоритма - символ принятия решения;
круг используется при разрыве записи блок-схемы;
прямоугольник с удвоенными боковыми сторонами обозначает применение подпрограммы - символ повторяемости процесса;
заканчивается запись блок-схемы всегда овалом, который содержит слово "конец".
Порядок выполнения действий указывается линиями.
Блок-схема создания снеговика
Алгоритм создан при идеальных условиях:
если снег есть, то возможно скатать шары для снеговика;
в наличии есть ведро-шапка, морковь-нос, угольки и подходящие веточки;
никто не разрушает созданные фигуры.