uses crt;
const n=3;
var i,s:integer;
k:string;
a:array[1..10] of integer;
begin
repeat
clrscr;
s:=0;
writeln('Задйате стаж работы в анкеты ');
for i:=1 to n do begin
write('Анкета ', i,': '); readln(a[i]);
if a[i]>=5 then inc(s)
end;
writeln('По реузльтатам подходят ', s,' анкеты');
writeln('Повторить - Enter. Выход - любой символ + Enter');
readln(k);
until k<>''
end.
Ответ 3) A[5,1]
1 2 3 4 5
6 7 8 9
10 11 12
13 14
<span>15</span>
64 = 1000000
-120 = -1111000
-96 = -1100000
57 = 111001
Вот конвертер: http://whoyougle.ru/measure/hex/
Лена Таня Маша
борщ - - +
пирожное + - -
салат - + -
Таня заказала салат. Чё тут решать то! двоечница!!!!!