Помогите решить задачи по информатике. Условия Дан массив ...
Помогите решить задачи по информатике. Условия Дан массив вещественных чилех X(12) все его элементы уменьшить на 23. 2)Дан массив целых чисел, все четные элементы заменить на их квадраты, а все не четные удвоить. 3)В массиве храниться информация о стоимости 1кг 20 видов конфет. Определить, сколько стоят самые дешевые конфеты. 4)Найти число пар "соседних" элементов массива, являющихся не четными числами. Сразу говорю я 9 класс,и некоторые заумные операторы не обьясняли!
Есть ответ
17.12.2022
385
Ответ
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]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
