ИСПРАВЛЕНО --- 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. Конец алгоритма (блок-схемы)
(Клас)
2. Імена учнів
3. Імена учнів і їхні досягнення
4.фото учнів
Я отак зробила.