8) Какой результат выведет на печать программа, если ввести следующие данные? X=– 11 REM вычислить INPUT «Ввести ЧИСЛО»; Х IF Х< -10 THEN Y=210 ELSE Y=X PRINT Y END
ИСПРАВЛЕНО --- Uses crt; {описание переменных} var a,b,c: array [1..20] of integer; x,sum:integer; begin sum:=0; {обнуляем сумму} for x:=1 to 20 do {включаем цикл ввода массивов} begin write('a[',x,']:'); {вывод текста на экран} readln(a[x]); {ввод массива А} write('b[',x,']:'); {вывод текста на экран} readln(b[x]); {ввод массива В} c[x]:=a[x]+b[x]; {формируем массив С} if x mod 2=0 then sum:=sum+c[x]; end; writeln; {переводим указатель на новую строку} for x:=1 to 20 do {цикл вывода массива С} writeln('c[',x,']:',c[x]); {вывод текста на экран} writeln('sum=',sum); {сумма четных элементов массива С} end. --- текст в фигурных скобках удалять не обязательно, он на код не влияет.
Рисовать долго, по этому объясню кратко (вы там проходите сейчас, должен знать КАК рисуются схемы, так что сам осилишь оформить), значит алгоритм следующий:
Я буду использовать переменную С с начальным значение 0. Прибавляя единицу в случае положительности переменной к концу алгоритма можно будет по её значению определить количество положительных переменных
1. Проверить число а на положительность. ( a > 0) (Да, нет) Если да, то нарисуешь как на рисунке 2. Проверить число b на положительность. ( b > 0) (Да, нет) 3. Проверить число с на положительность. ( с > 0) (Да, нет) 4. Вывести значение С (Это ответ на вопрос) 5. Конец алгоритма (блок-схемы)
---
Uses crt;
{описание переменных}
var a,b,c: array [1..20] of integer;
x,sum:integer;
begin
sum:=0; {обнуляем сумму}
for x:=1 to 20 do {включаем цикл ввода массивов}
begin
write('a[',x,']:'); {вывод текста на экран}
readln(a[x]); {ввод массива А}
write('b[',x,']:'); {вывод текста на экран}
readln(b[x]); {ввод массива В}
c[x]:=a[x]+b[x]; {формируем массив С}
if x mod 2=0 then
sum:=sum+c[x];
end;
writeln; {переводим указатель на новую строку}
for x:=1 to 20 do {цикл вывода массива С}
writeln('c[',x,']:',c[x]); {вывод текста на экран}
writeln('sum=',sum); {сумма четных элементов массива С}
end.
---
текст в фигурных скобках удалять не обязательно, он на код не влияет.