program raf105;
var i,n:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do
writeln('7');
end.
6.program raf105;
var
i: integer;
pro: real;
begin
pro:= 1;
for i:=1 to 20 do
pro*= i;
writeln('Произведение первых 20 чисел: ',pro);
end.
7.program raf105;
var i,sum: integer;
begin
for i:=1 to 15 do
sum+= i;
writeln('Сумма первых 15 чисел: ',sum);
end.
program raf105;
var a,otr: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a<0
then otr+= 1;
until a = 0;
writeln('Отрицательных чисел: ',otr);
end.
№2program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
if a>0
then sum+= a;
until a = 0;
writeln('Сумма положительных чисел: ',sum);
end.
PascalABC 3.4.2
Відповідь:
#include <iostream>
#include <cstdlib>
#include <time.h>
using namespace std;
void randarr(int *A,int N){
for(int i = 0; i < N; i++){
A[i] = rand() % 20 + 1;
}
}
void printarr(int *A,int N){
for(int i = 0; i < N; i++){
cout << A[i] << " ";
}
}
int expression(int *A,int N){
int sum = 0;
for(int i = 0; i < N; i++){
if(i % 2 == 0){
if(A[i] % 2 == 0){
sum += A[i];
}
}
}
return sum;
}
int main(){
srand(time(NULL));
setlocale(LC_ALL , "Ukrainian");
int N;
cout << "Введiть кiлькiсть елементiв масиву: ";
cin >> N;
int A[N];
randarr(A,N);
printarr(A,N);
cout << "\nСума всiх парних елементiв з парними iндексами = " << expression(A,N);
return 0;
}