Все на фотографии. Нужно использовать одну условную конструкцию
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1 символ равен одному байту, значит надо сосчитать количество символов в этой фразе - пробелы и знаки припинания считаем:
43 * 1 = 43
ответ: 43 байта
// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Введи второй катет: ');Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
Writeln('Площадь равна ', 0.5 * a * b)
end
end
end.