Помогите решить задачи по информатике

Помогите решить задачи по информатике. Условия Дан массив вещественных чилех X (12) все его элементы уменьшить на 23. 2) Дан массив целых чисел, всечетные элементы заменить на их квадраты, а все не четные удвоить. 3) В массиве храниться информация о стоимости 1 кг 20 видов конфет. Определить, сколько стоят самые дешевые конфеты. 4) Найти число пар «соседних» элементов массива, являющихся не четными числами. Сразу говорю я 9 класс, и некоторые заумные операторы не обьясняли!

в избранное

evil18

16 марта 2023

1) var X: array[12] of real; i: integer; begin for i: =1 to 12 do begin readln (X[i]); X[i]: =X[i]-23; end; for i: =1 to 12 do writeln (X[i]) end.2) var M: array[100] of integer; i: integer; begin for i: =1 to 100 do begin readln (M[i]); if (M[i] mod 2=0) then M[i]: =M[i]*M[i] else M[i]=2*M[i]; end; for i: =1 to 100 do writeln (M[i]); end.3) var price: array[20] of real; i: integer; minprice: real; begin minprice: =10000; for i: =1 to 20 do begin readln (price[i]); if (price[i]

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?