Винчестер -(жёсткий диск ) в котором храниться информация как кратковременная так и постоянная
Program pr1;
Var A:array [1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
read (A[i]);
k:=0;
for i:=1 to 10 do
if A[i] mod 2=0 then
k:=k+1;
writeln;
writeln (k);
end.
наверное так, но лучше проверь в паскале
1.
<u>алг</u> сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
<span><u>кон</u>
2.
</span><u>алг</u> произведение
нач цел mult=1,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
mult:=mult*a[i]
кц
вывод mult
<u>кон</u>
3.
<u>алг</u> максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
<span><u>кон</u></span>
Працесор имет 89 элементов в 2000 году