1. Створити масив із 10 цілих чисел, що уведені з клавіатури. Кожен 2-1 елемент масиву обнулити. На екран вивести даний масив та змінений масив. 2. Масив із 15 цілих чисел заповнити випадковими числами із різними знаками. Знайти суму елементів масиву, що не перевищують 1. Вивести на екран сформований масив та знайдену суму.
3. Масив містить 15 членів послідовності, найбільший елемент якої дорівнює 15,5. Кожен наступний елемент менший на одне й теж число 2,5. Сформований масив надрукувати. Знайти кількість додатних членів такої послідовності.
4. Дано масив a1=[-1, 0, 1, -2, 0, 2 -3, 0, 3,-4, 0, 4]. Усі від’ємні елементи замінити числом 10, а усі додатні – числом 20. Підрахувати кількість замін та вивести цю кількість на екран. Даний масив і змінений масив надрукувати.
Var
f,s:text;
st,sp:string;
i:integer;
c:char;
begin
assign(s,'text1.txt');
reset(s);
while not Eof(s) do
begin;
readln(s,sp);
st:=st+sp+chr(10)+chr(13);
end;
close(s);
for i:=1 to length(st) div 2 do
begin
c:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=c;
end;
assign(f,'text.txt');
rewrite(f);
write(f,st);
close(f);
end.
Текст в файле text1.txt:
Simple text
1And another simple text
2New text
Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS