Смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чисел
var
i , k, n:integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do readln(a[i]);k:=a[1]*a[2]*a[3];
n:=a[10]*a[9]*a[8];
writeln('произведение первых трех чисел= ',k);
<span>writeln('произведение последних трёх чисел= ', n);</span>
end.
1-а
2-б
3-в
4-г
5-д
6-б
Очень лёгкий тест! Надеюсь что помогла.)
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
#include <iostream>
using namespace std
int main() {
int a
cout<<" введи число"
cin>>a
if (a=5) {
cout<<"a=5"
eiso
cout<<"a<>5"
return 0
}