Program n1;
var a: array[1..12] of integer;
i,sum: integer;
begin
randomize;
sum:=0;
writeln('исходный массив:');
for i:=1 to 12 do
begin
a[i]:=random(15);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
1)Емеля щуку поймал 2)щука ему человеческим голосом говорит 3)щука говорит емеле волшебные слова по щучему велению по моему хотению 4)Емеля пробует это на вёдрах 5)они оживают набирают воды и идут домой 6)приходят ставятся на стол,а коромысло на крючок.
Вікно налаштування параметрів містить такі елементи:
74 : 9=
Ответ будет сколько он собрал яблок
var
I,U,R: real;
begin
write('Введите значение напряжения (U, В) = '); readln(U);
write('Введите значение сопротивления (R, Ом) = '); readln(R);
I:=U/R;
write('Сила тока (I, A) = ', I);
end.