Помогите доделать программу в Pascal
Доброго дня.
Помогите пожалуйста с программой, нужно в массиве найти ненулевые элементы с четными номерами и их количество. Количество нашел, но как вывести на печать элементы удовлетворяющие условию? Код:
uses |
var
s:= string; ..... if (i mod 2 = 0) and (a[i] <> 0) then begin inc(k); s:= s + ' ' + str(a[i]); end; writeln('kol-vo elementov =', k); writeln('elementi - ', s); |
Цитата:
Я бы предложил так: Код:
const Впрочем, знаю, что некоторые препы требуют, чтобы студенты ВСЕГДА ставили "uses CRT;". По мне - таких гнать в три шеи. |
Часовой пояс GMT +4, время: 02:58. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.