1) Вывести одномерный массив размерностью n. Вычислить сумму элементов стоящих на…

1) vara: array[1… 50]of real; i,n: byte; Sn: real; begin write ('Введите количество элементов массива: '); readln (n); for i: =1 to n dobeginwrite ('a[',i,']='); readln (a[i]); end; clrscr; writeln ('Исходный массив: '); /*Вывод в строчку через запятую*/for i: =1 to n-1 do write (a[i]: 5:3,', '); write (a[n]: 5:3,'.'); /*Простой вывод в столбик*/for i: =1 to n do writeln (a[i]: 5:3); /*Сумма элементов, стоящих на четных местах*/ Sn: =0; while i <= n dobegin if odd (i)=false then Sn: =Sn+a[i]; i: =i+1; end; /*Вывод ответа*/writeln ('Сумма элементов, стоящих на четных местах: ',Sn: 5:3); end. 2) vara: array[1… 50]of real; i: byte; begin write ('Введите количество элементов массива: '); readln (n); for i: =1 to n dobeginwrite ('a[',i,']='); readln (a[i]); end; clrscr; writeln ('Исходный массив: '); /*Вывод в строчку через запятую*/for i: =1 to n-1 do write (a[i]: 5:3,', '); write (a[n]: 5:3,'.'); /*количество элементов кратных 3*/kol: =0; for i: =1 to n doif a[i] mod 3=0 then kol: =kol+1; /*Вывод ответа*/writeln ('Количество элементов массива, кратных трем: ',kol); end.