Вопрос по информатике:
Составить блок схему по программе:
Program Vectors;
var
k,i,j,sum,para:integer;
y,z:array[1..100] of integer;
begin
sum:=0;para:=0;
writeln('Введите количество элементов в массивах');
readln(k);
for i:=1 to k do
begin
writeln('Введите z-',i);
readln(z[i]);
writeln('Введите y-',i);
readln(y[i]);
if z[i]=y[i] then para:=para+1;
sum:=sum+z[i];
end;
writeln('Количество элементов удовлетворяющих условию: ',para);
writeln('Сумма всех элементов массива z=',sum);
readln;
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.09.2017 08:38
- Информатика
- remove_red_eye 15583
- thumb_up 8
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.