// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
<span>end.</span>
Информа́ция (от лат. informātiō «разъяснение, представление, понятие о чём-либо» ← informare «придавать вид, форму, обучать; мыслить, воображать) — сведения независимо от формы их представления
текстовая графическая звуковая числовая
хранение обработка передача создание -информация
текстовая-повесть
графическая-новогодняя открытка
календарь-числовая
звуковая-гудок авто
В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Ответ:
5
Объяснение:
По циклу будет три прохода (при очередном входе с=1 , 2, 3).
Перед входом в цпикл b = 2, а за каддый проход по циклу b увеличивается на a, т.е. на 1. Итого, b уведичится на 3 и станет равным 5.