Жили были кнопки. и они путешевствовали по рабочему столу. вдруг одна застряла в какой-то гуще! это было варенье! кнопки сказали это все из-за тебя! нельзя кушать за компьютерным столом!
Ответ:
1) Ввести два числа, сложить, удвоить. Вывести ответ.
2) Ввести число, возвести в квадрат. Вывести ответ. Передайте автору учебника, что у квадрата по определению только ОДНА длина стороны. Сторон четыре, а размер - один.
Объяснение:
a) нет переменной b
b) После команды «Спросить переменную b» изменить переменную а на b и запустить программу.
1. Файл.
2. Берёста.
3. Хранения.
4. Долговременной.
5. Оперативная.
6. Информация.
7. Фотография.
8. - Вообще-то это Слово или Речь, а так не знаю.
9. Папирус.
10. Пергамент.
Var a:array[1..200] of real;
n,k1,k2,k3,i:integer;
begin
randomize;
writeln ('Введи размер массива');
readln (n);
for i:=1 to n do
begin
a[i]:=21*random-10;
if a[i]>0 then inc(k1)
else if a[i]<0 then inc(k2)
else inc(k3);
write (a[i]:4);
end;
writeln ('Положительных=',k1);
writeln ('отлицательных=',k2);
writeln ('нулевых=',k3);
end.