1)
var i,n:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do write(a[ i]:8); writeln;
for i:=n downto 1 do write(a[i]:8); writeln;
writeln('Для выхода нажмите Enter'); readln
end.
2)
var i,n:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[ i]); readln;
for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;
writeln('Для выхода нажмите Enter'); readln
end.
3)
var i,n:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;
writeln('Для выхода нажмите Enter'); readln
end.
4)
var i,n,s:integer; a:array[1..100]of integer;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[i]); readln;
for i:=1 to n do write(a[i]:8); writeln;
s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;
writeln('Для выхода нажмите Enter'); readln
end.
Объяснение:
вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов по информатике, Реализовать программу следующего задания не менее чем двумя
вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов.
Объяснение:
Код программы;
#include <iostream>
#include <locale>
using namespace std;
int main(void) {
srand(time(NULL));
setlocale(LC_ALL, "Russian");
int *mas, N, max, i , j;
cout << "Введите N" << endl;
cin >> N;
if (N > 5 && N < 109) {
mas = new int[N];
cout << "Введите числа:" << endl;
for (i = 0; i < N; i++)
cin >> mas[i];
max = mas[0] + mas[5];
for (i = 0; i < N; i++) {
if (i + 5 >= N)
break;
for (j = i+5; j < N; j++) {
if (mas[i] + mas[j] > max)
max = mas[i] + mas[j];
}
}
cout << "\nМаксимальная сумма = "<< max << endl;
delete mas;
}
else
cout << "Ошибка. Заданное значение N не соответствует условию: 5 < N < 109" << endl;
return 0;
}