Вопрос по информатике:
Помогите решить задачи по информатике. Условия Дан массив вещественных чилех X(12) все его элементы уменьшить на 23. 2)Дан массив целых чисел, все четные элементы заменить на их квадраты, а все не четные удвоить. 3)В массиве храниться информация о стоимости 1кг 20 видов конфет. Определить, сколько стоят самые дешевые конфеты. 4)Найти число пар "соседних" элементов массива, являющихся не четными числами. Сразу говорю я 9 класс,и некоторые заумные операторы не обьясняли!
- 18.12.2017 14:29
- Информатика
- remove_red_eye 4347
- thumb_up 60
Ответы и объяснения 1
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] end; writeln(minprice) end. 4) var M:array[100] of integer; i, counter: integer; begin readln(M[1]); counter:=0; for i:=2 to 100 do begin readln(M[i]); if ((M[i] mod 2=1) and (M[i-1] mod 2=1)) then inc(counter); end; writeln(counter) end.
- 19.12.2017 06:18
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.