Var f:array [1..19] of real;
i,k:integer;
begin
k:=0;
for i:=1 to 19 do begin
Write('f[',i ,']=');
readln(f[i]);
if f[i]=6 then k:=k+1;
end;
Writeln('Количество шестерок: ',k);
readln;
end.
Ответ:
1.а) 2.г) 3.в) 4.-) 5.а) 6.а) 7.а)
Короче. Мне не влом было запихнуть это всё в эклипс. Результат данной работы будет, как не странно(особенно для тебя, Мышшшь) "5, 10", а не "10, 5". Чего и следовало ожидать. Т. к. Переменные a и b мы объявляли внутри метода main, а в методе swap(int a, int b); существуют собственные int a и int b. Поэтому и работает этот метод с <u>ними</u>. Так что... Учите теорию, господа.
открытие, удаление, перемещение, копирование, переименование, редактирование, сохранение.
На каждый вид мышки можно выбрать 12 видов клавиатур => 12*10=120 разных комбинаций "мышка-клавиатура"