1 Дан массив А(10). Заменить все нечетные элементы массива на минимальное значение. вывести преобразованный массив. 2 Вести массив А(36). найти произведение первых пяти элементов массива, сумму остальных и частное от деления произведения и суммы. вывести все результаты.
1) при цикла найти минимальное значение. 2) записать значение минимума в отдельную переменную. 3) при цикла каждый элемент проверять на четность, если элемент четный, то тогда переходить к следующему, а если он не четный, то приравнивать его к переменной в которой записан минимум.
1) при цикла ограниченным до 5ого элемента включительно любую объявленную переменную и заранее приравненную к единице умножить поэлементно(при цикла) 2) начиная с 6 элемента и до конца при цикла сложить все элементы и записать эту сумму в отдельную объявленную переменную 3)записать в объявленную переменную выражение произведение/сумму. 4) вывести все переменные на экран.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа. Первая публикация Вирта о языке датирована 1970 годом; представляя язык, автор в качестве цели его создания указывал построение небольшого и эффективного языка хорошему стилю программирования, использующему структурное программирование и структурированные данные.
Последующая работа Вирта была направлена на создание на основе Паскаля языка системного программирования, с сохранением возможности вести на его базе систематический, целостный курс обучения профессиональному программированию.Результат этой работы — язык Модула-2.
ответ:Program z1;
var k : integer;
begin
writeln('Введіть номер місяця');
readln(k);
case k of 1: writeln('січень');
2: writeln('лютий');
3: writeln('березень');
4: writeln('квітень');
5: writeln('травень');
6: writeln('червень');
7: writeln('липень');
8: writeln('серпень');
9: writeln('вересень');
10: writeln('жовтень');
11: writeln('листопад');
12: writeln('грудень');
end; { case }
case k of 1,2,12: writeln('зима');
3,4,5: writeln('весна');
6,7,8: writeln('літо');
9,10,11: writeln('осінь');
else writeln('такого місяця немає');
end; { case }
readln end.
Объяснение: