Найдите сумму четных чисел от 1 до 10. qbasic

информатика, сейчас подумаем.

//pascal var   a: array [1..5] of integer;   min, max, minind, maxind: integer;   i: byte; begin   writeln('заполнение массива.');   for i : = 1 to 5 do   begin       write('а[', i, '] = '); readln(a[i]);   end;   writeln;   max : = a[1]; min : = a[1];   for i : = 1 to 5 do   begin   if max < a[i] then begin max : = a[i]; maxind : = i; end;   if min > a[i] then begin min : = a[i]; minind : = i; end;   end;   writeln('номер минимального элемента = ', minind);   writeln('номера минимального и максимального = ', minind, ' и ',maxind); end.

В1942 году американский   джон атанасов   и его аспирант клиффорд берри разработали и начали монтировать первый электронный компьютер. работа не была завершена, но оказала большое влияние на создателя первого электронного компьютера эниак. тот человек, кто придумал компьютер эниак – первую электронно-вычислительную цифровую машину, был  джон мокли , американский и инженер. джон мокли обобщил основные принципы построения эвм на основе опыта разработки машин и в 1946 году миру предстал настоящий электронный компьютер eniac. руководителем разработки был  джон фон нейман, изложенные им принципы и структура эвм в дальнейшем так и стали называться – фон-неймановскими