Ответ:
1 - 1, (4 тоже верно, будут еще индексы выводиться)
2 - 2 - всё верно
3 - 3 59 элементов
4 - 4 массив и 2 множество подходят оба ответа
5 - 4 S := 1
6 - 2)Сумма неотрицательных элементов массива
7 - 1)A : array [1..25] of byte
3)A : array [1..25] of integer
оба правильно
8 - 1)Индекс максимального элемента массива (в переменной m)
9 - программа не правильная
Программа..............................................
CD это отражения ямок и горок которые кодируются 1 и 0| а различия в cd инфрокрасный лазер а в dvd красный лазер и в dvd меньшая длинна волны ёмкость DVD превосходит обычный cd
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
<span>Вчера решал 238 вышло, могу ошибаться..
</span>