<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
Мы вступили в XXI век, в котором тот, кто владеет информацией, владеет миром. Это уже не фраза, а реальность. Развитие информационной культуры личности — важнейшая часть формирования общей культуры человека.
<span>В современных условиях информатизации общества происходит реформа системы непрерывного образования. Одной из важнейших задач этой реформы является развитие интеллектуальной и информационной культуры личности как составной части общей культуры.
</span>Информационная культура<span> личности подразумевает совокупность особых интеллектуальных свойств и способностей -в частности, способностей к абстрагированию и обобщению, к смене направленности мыслительного процесса, к выделению существенных признаков, их фиксации в памяти, использование данной информации при необходимости, а также способности мыслить «свернутыми структурами»
</span><span>Таким образом, информационная культура личности оказывается тесно связана с культурой интеллектуального труда.</span><span>Формирование умений и навыков работы с информацией, включение их в ценностную систему личности требует индивидуального подхода к каждому потребителю информации, связи обучения с конкретными информационными проблемами индивида.</span>
//Pascal ABC.NET v3.1 сборка 1172
Const
n=5;
Var
ar1,ar2:array[1..n] of integer;
i,k,m:integer;
begin
writeln('Reading array A:');
for i:=1 to n do
readln(ar1[i]);
writeln('Reading array B:');
for i:=1 to n do
readln(ar2[i]);
writeln('Res:');
for i:=1 to n do
if ar1[i]>5 then
begin
writeln(i);
break;
end;
for i:=1 to n do
if odd(ar2[i]) then
begin
writeln(ar2[i]);
break;
end;
end.
Пример ввода:
Array A:
1
2
4
5
9
Array B:
1
4
7
9
13
Пример вывода:
Res:
5
1
После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"