Приведу часть программы.
n-любое число
...........................
a: array[1..n] of integer;
................................
K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.
Ответ:
У каждого есть свои замыслы и идеи по поводу техники. Что на счёт меня, моя техника мечты - это домашний робот-компьютер со встроенным искусственным интеллектом. Он может служить отличным помощником в домашних делах, хорошим собеседником и просто средством для развлечений. Проблема, к примеру, с математикой? Не нужно печатать и искать какой-то сайт с объяснениями. Можно спросить у робота. Он не только может помочь решить, но и объяснит возможные ошибки. В таких же случаях его можно использовать, когда нужен совет или что-то подобное. А когда совсем скучно, можно попросить его сыграть с тобой в какую-нибудь игру. И робот сразу подключается через интернет к твоему игровому серверу и весёлое время препровождения гарантировано.
Объяснение:
Держи. Если я правильно поняла вопрос, конечно...
1 c:=0
for i:=1 to 8 do begin
if a [i]<0 then inc (c);
end;
writeln (c);
2 c:=0
for i:=1 to 8 do begin
c=c+i×i;
end;
writeln (c);
01010100011001010111001101110100
Выключи компьютер потм включи