1. массив и 4 целых чисел вводится с клавиатуры. найти и вывести произведение элементов массива. 2. массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. найти сумму положительных элементов массива. 3. массив из 5 целых чисел вводится с клавиатуры в строку. найти сумму элементов массива, стоящих на чётных позициях. вывести исходный массив и полученную сумму. 4. массив из 40 целых чисел из промежутка [10, 90] задается с генератора случайных чисел. найти сумму элементов массива, кратных n . вывести исходный массив и полученную сумму. кто в чем может.

вот ,   моя игра .   угадай число.

program k2game; uses crt; var i,a,n: integer; begin textbackground(14); clrscr; gotoxy(33,2); textcolor(4); writeln('игра "угадай число! " '); delay(400); textcolor(5); gotoxy(23,4); writeln('1. компьютер загадывает число от 0 до 9.'); delay(840); textcolor(5); gotoxy(23,5); writeln('2. ваша - угадать это число! '); delay(840); textcolor(5); gotoxy(23,6); writeln('3. не забывайте, что у вас всего две попытки! '); delay(640); textcolor(5); gotoxy(23,7); writeln('4. если же вы ошиблись, то компьютер даст вам подсказку.');

randomize; a: =random(10); n: =0; textcolor(0); repeat gotoxy(23,9); writeln(' введите число.'); gotoxy(23,10); readln(i); if (i < > a) then begin n: =n+1; gotoxy(23,11); if (i> a) then writeln('подсказка: загаданное число меньше.') else writeln('подсказка: загаданное число больше.') end; until ((i=a) or (n=2));

gotoxy(23,13); textcolor(2); if (i=a) then writeln('поздравляю! вы выйграли! ') else writeln('к сожалению,н

о вы проиграли! ');

end.

program done; var mlr: integer; beginwriteln('введите число времени года'); readln(mlr); case mlr of1: writeln('время года: зима. ' , ' месяца: декабрь, январь, февраль. ' , ' количество дней в январе: 31 | феврале: 30 | декабре: 31.'); 2: writeln('время года: весна. ' , ' месяца: март, апрель, май. ' , ' количество дней в марте: 31 | апреле: 30 | мае: 31.'); 3: writeln('время года: лето. ' , ' месяца: июнь, июль, август. ' , ' количество дней в июне: 30 | июле: 31 | августе: 31.'); 4: writeln('время года: осень. ' , ' месяца: сентябрь, октябрь, ноябрь. ' , ' количество дней в июне: 30 | июле: 31 | августе: 30.'); else writeln('данного времени года не существует! ');

end; end.