<span>var a,i:integer;
begin
for i:=1 to 99 do begin
if (i mod 2>0) then
a:=a+i;
end;
write(a);
end.
</span><span>
</span>
Ответ:
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 - программа не правильная
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
СА 16=202 10. Более подробное решение во вложении.