const n=30;
var k:array[1..n] of integer; i,t,p:integer;
begin
randomize;
for i:=1 to n do begin
k[i]:=random(100);
if (k[i]>0) then p:=p+1;
if (i=3) and (k[3]>0) then t:=k[3];
end;
if (p<3) then write('В массиве меньше трех положительных элементов') else writeln('Третий элемент массива равен ', t);
end.
Отрицательного значения в массиве не будет, напиши формулу к массиву k[i]:=твоя формула. Формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая
Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-
program jfe3;
const n=10; {Это будет кол-во элементов массива}
var a:array [1..n] of integer; i,s:integer;
begin
for i:=1 to n do begin
a[i]:=random(100); {элемент выбирается случайно от 0 до 100}
s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i:=1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось} END.
program season;
var
number_month: integer;
begin
write('Введите номер месяца: ');
read(number_month);
case number_month of
1, 2, 12: writeln('Зима.');
3..5: writeln('Весна.');
6..8: writeln('Лето.');
9..11: writeln('Осень.');
else writeln('Неверный номер месяца.');
end
end.
Объяснение:
program season; // Название программы
var
number_month: integer; // Целочисленная переменная, отвечающая за вводимый номер месяца с клавиатуры
begin // Начало программы
write('Введите номер месяца: '); // Вывод сообщения
read(number_month); // Ввод номера месяца с клавиатуры
case number_month of // Принимает значение переменной number_month
1, 2, 12: writeln('Зима.'); // Если значение переменной number_month = 1, 2, 12, то выводим "Зима"
3..5: writeln('Весна.'); // Если значение переменной number_month = 3, 4, 5, то выводим "Весна"
6..8: writeln('Лето.'); // Если значение переменной number_month = 6, 7, 8, то выводим "Лето"
9..11: writeln('Осень.'); // Если значение переменной number_month = 9, 10, 11, то выводим "Осень"
else writeln('Неверный номер месяца.'); // Иначе выводим сообщение об ошибке
end // Конец функции
end. // Конец программы