Наскальная живопись
Книга
Перфокарта
Магнитная лента
Дискета
Флеш-карта
Звуковая, видеоинформация, графическая информация, числовая информация, письменная информация
Uses crt;
var a:array [1..1000] of integer;
n,i,k,p:integer;
begin
writeln('Введите количество домов ');
readln(n);
writeln('Вводите через пробел число жителей каждого дома ');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=1 then k:=k+a[i]
else p:=p+a[i];
end;
writeln;
if k>p then writeln ('В нечетных домах жителей больше ')
else writeln('В четных домах жителей больше ');
end.
Смотри картинки (красная 1 алгоритм, синяя 2 алгоритм)