#include <iostream>
#include <ctime>
int main()
{
using namespace std;
setlocale(LC_ALL, "ru");
srand(time(NULL));
int size;
int mult = 1;
cout << "Введите размер массива: " << endl;
cin >> size;
int *arr = new int[size];
cout << "Массив: " << endl;
for (int i = 0; i < size; i++)
{
arr[i] = rand() % 50 - 25;
cout << arr[i] << '\t';
if (i & 1 && arr[i] != 0)
mult *= arr[i];
}
cout << "\nРезультат: " << mult;
delete[] arr;
return 0;
}
program amountn;
var
amount, n, number, i: integer;
begin
amount := 0;
write('Введите количество чисел: ');
read(n);
for i := 1 to n do
begin
read(number);
amount := amount + number;
end;
writeln('Сумма n чисел: ', amount);
end.
Объяснение:
program amountn; // Название программы
var
amount, n, number, i: integer; // Целочисленные переменные:
amount - сумма чисел;n - количество чисел;number - сами числа;i - счетчик для цикла for.begin // Начало программы
amount := 0; // Переменная, хранящая сумму, = 0
write('Введите количество чисел: '); // Вывод сообщения в консоль
read(n); // Считываем количество чисел с клавиатуры
for i := 1 to n do // Идём с единицы до n (цикл для ввода n чисел)
begin // Начало цикла
read(number); // Считываем число с клавиатуры
amount := amount + number; // К переменной, хранящей сумму, прибавляем число
end; // Конец цикла
writeln('Сумма n чисел: ', amount);
end. // Конец программы
program raf105;
var k,n,x,i:integer;
begin
write('K = ');
readln(k);
write('N = ');
readln(n);
if (k > 5) and (k < n)
then
begin
for i:=k to 34+n do
x += 1;
writeln('Вывод: ',x);
end
else
writeln('Условия k > 5, k < n не соблюдены');
end.
Язык PascalABC