Дан одномерный массив из целых чисел. Сколько элементов, значения которых равных 0 , и сколько элементов равных 2?
Предмет:
ИнформатикаАвтор:
wileyprogram xxx;
const n=30;
var a : array [1..n] of integer; i, kn, kd : integer;begin
readln(n);
kn:=0;
kd:=0; for i:=1 to n do begin
write('a[',i,']=');
readln (a[i]);
if a[i]=0 then kn:=kn+1;
if a[i]=2 then kd:=kd+1; end;
for i:=1 to n do write(a[i], ' ');
writeln(); writeln('Количество чисел равных 0 -',kn);
writeln('Количество чисел равных 2 -',kd); readln();end.
Автор:
jaylahayesДобавить свой ответ
ответе на вопросы: 1)Каковы основные направления внешней политики Ивана IV 2)Каковы были итоги Ливонской войны? 3)Расскажите о покорение Сибири.Каково значение присоединения Западной Сибири? 4) В чем значение присоединения к Московскому государству Казанского и Астраханского ханств?
Предмет:
ИсторияАвтор:
guntherv4cmОтветов:
Смотреть
напишите уравнения реакций,подтверждающих химические свойства а)оксида калия б)гидроксида калия
Предмет:
ХимияАвтор:
blondie7snzОтветов:
Смотреть
Ниже записана программа. Получив на вход число x, эта программа печатает два числа, L и M. Укажите наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 8.
var x, L, M: integer;
begin
readln(x);
L:=0; M:=0;
while x>0 do
begin
L:=L+1;
if (M<x) and (x mod 2=0) then
begin
M:=x mod 10;
end;
x:= x div 10;
end;
writeln(L); write(M);
end.
Предмет:
ИнформатикаАвтор:
francisco71Ответов:
Смотреть
на сколько изменилась внутренняя энергия газа,если ему сообщили количество теплоты 50 кДж и совершили над ним работу 40 кДж ?
Предмет:
ФизикаАвтор:
cesarmillsОтветов:
Смотреть