program z3;
uses crt;
var x,y,z,k:byte;
s:integer;
begin
clrscr;
write('Введи x='); readln(x);
write('Введи y='); readln(y);
write('Введи z='); readln(z);
if (x>z) and (not(odd(x))) then begin
s:=s+x;
k:=k+1;
end;
if (y>z) and (not(odd(y))) then begin
s:=s+y;
k:=k+1;
end;
writeln('Сумма чётных элементов, больших z равна ',s);
writeln('Кол-во чётных элементов, больших z равно ',k);
readkey
end.
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Заполни пустые ячейки таблицы.<span>Слово Значение слова
Понятие помогите</span>
1) 5 байт = 40 бит
2) 4096 байт = 4 КБ
3) 10 КБ = 81920 бит
4) 3 МБ = 3145728 байт
5) 2 байта = 16 бит
6) 8192 байт = 8 КБ
7) 2 КБ = 16384 бит
8) 100 МБ = 102400КБ
ти на английском написал паска убири л и все будет правильно