var a: array[1..10] of integer;
n, S, P: integer;
begin
write(ꞌВведите n =ꞌ);
readln(n);
writeln(ꞌВводите элементыꞌ);
for var i := 1 to n do
read(a[i]);
S := 0;
P := 1;
for var i := 1 to n do
S := S + a[i];
for var i := 1 to n do
P := P * a[i];
writeln(ꞌСумма = ꞌ, S);
writeln(ꞌПроизведение = ꞌ, P);
end.

Решение

var A: array [1..100] of integer; //исходный массив

Otr:array [1..100] of integer; // отрицательные элементы

Pol:array [1..100] of integer; //положительные элементы

n,k1,k2: integer;

begin

writeln('Введите количество чисел в массиве');

readln(n);

//формирование массива положительных и отрицательных значений

for var i := 1 to n do

a[i] := random(100)-40;

k1:=0; // кол-во положительных элементов

k2:=0; // кол-во отрицательных элементов

for var i := 1 to n do

if a[i]>0 then begin k1:=k1+1; Pol[k1]:= a[i];end

else begin k2:=k2+1; Otr[k2]:= a[i];end;

for var i := 1 to k1 do

write(pol[i],' ');

writeln;

for var i := 1 to k2 do

write(otr[i],' ');

end.

var A: array [1..100] of integer;

n,so,sp: integer;

kp,ko:integer;

begin

writeln('Введите количество чисел в массиве');

readln(n);

for var i := 1 to n do

begin

a [i] := random(100)-40;

write(a[i],' ');

end;

for var i := 1 to n do

if a[i]>0 then begin kp:=kp+1; sp:=sp+a[i]; end

else begin ko:=ko+1;so:=so+a[i];end;

writeln('сумма положительных=', sp);

writeln('сумма отрицательных=', so);

writeln('кол-во положительных=', kp);

writeln('кол-во отрицательных=', ko);

if kp>ko then writeln('кол-во положительных больше, чем отрицательных')

else if kp<ko then writeln('кол-во отрицательных больше, чемположительных')

else writeln ('равное кол-во положительных и отрицательных');

end.

a[i]<0 отрицательные элементы

a[i]=0 элементы равные 0

a[i]>=0

a[i]<=0

a[i] mod 2 =0 четные элементы

a[i] mod 2 <> 0 нечетные элементы

a[i] mod 3 = 0 элементы кратные 3

var A: array[1..100] of integer;

B: array[1..100] of real;

T: array[1..100] of string;

2 способ:

const

C: array [1..3] of string =('красный', 'синий', 'зеленый');

D: array [1..5] of integer =(1,9,8,2,4);

Var ....

1. случайным образом

for var i := 1 to n do

a[i] := random(100);

2. ввод с клавиатуры

for var i := 1 to т do

readln(a[i]);

1. в столбец с индексом места

   for var i := 1 to n do writeln('a[',i,']=',a[i]);

или

2. в строку через пробел

   for var i := 1 to n do

write(a[i],' ');

или

3. в столбец

   for var i := 1 to n do

writeln(a[i]);

Условие: метеостанция записывает температуру каждый день в течение 14 дней. Программа должна:

1. Вывести весь массив температур.

2. Найти среднюю температуру за период.

3. Найти самый тёплый и самый холодный день.

4. Сосчитать, сколько дней температура была ниже нуля.

Задача 2. «Анализ цен в магазине электроники»

Условие: в магазине 12 смартфонов. Программа должна:

1.     Найти самый дорогой и самый дешёвый телефон.

2.     Сосчитать общую стоимость склада.

3.     Вывести список телефонов дороже 3 000 б.р..

4.     Найти среднюю цену и посчитать, сколько моделей дороже средней.

Задача 3. «Успеваемость класса»

Условие: в классе 15 учеников, известны их оценки за контрольную (от 1 до 10). Программа должна:

1.     Сосчитать средний балл класса.

2.     Найти лучшую и худшую оценку.

3.     Сосчитать, сколько «10», «9», «8» и «7»... получил класс.

4.     Определить, сколько учеников написали хуже среднего.

Задача 4. «Банкомат: анализ операций за день»

Условие: за день через банкомат прошло 20 операций (положительные — пополнения, отрицательные — снятия). Начальный баланс — 10 000 б.р.. Программа должна:

1.     Сосчитать итоговый баланс.

2.     Найти самую крупную операцию (по модулю).

3.     Сосчитать общую сумму пополнений и снятий отдельно.

4.     Проверить, не ушёл ли банкомат в минус.

Задача 5. «Плейлист: анализ треков»

Условие: в плейлисте 10 треков, известна длительность каждого (в секундах). Программа должна:

1.     Сосчитать общую длительность плейлиста в формате MM:SS.

2.     Найти самый длинный и самый короткий трек.

3.     Найти первый трек короче 3 минут.

4.     Сосчитать, сколько треков длиннее 4 минут.

Задача 6. «Контроль качества на складе»

Условие: на складе 20 коробок. По документам все коробки должны весить ровно 5000 г. Программа должна:

1.     Найти все коробки, чей вес отклоняется от нормы более чем на 100 г.

2.     Сосчитать количество бракованных.

3.     Найти среднее отклонение от нормы (только для бракованных).

4.     Определить, есть ли среди бракованных коробки тяжелее нормы.