а) var a:array[1..3] of integer;
s, i: integer;
begin
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i] mod 2=0 then
s:=s+a[i]
end;
writeln(s);
readln();
end.
б) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=0
for i:=1 to 3 do
begin
if a[i]<0 then
write(a[i], ' ')
end;
readln();
end.
в) var a:array[1..3] of integer;
s, i: integer;
begin
for i:=1 to 3 do
begin
writeln('Vvedite chislo', i - );
readln(a[i]);
end;
s:=1
for i:=1 to 3 do
begin
if a[i] mod 3=0 then
s:=a[i]*a[i];
end;
writeln(s);
readln();
end.
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#include<iostream>
#include<conio.h>
void main()
{
int a;
int m;
puts ("Определение максимального положительного числа\n");
puts ("Вводим числа для завершения введите 0");
m=0;
do
{
printf(" | ");
scanf("%i",&a);
if (a>m)
{
m=a
}
}while(a>0);
printf("Максимальное число :%i",m);
printf("Для завершения введи Enter");
getch();
}
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Дан целочисленный массив а имеющий n элементов (n< =100 найти сумму элементов массива а так же максимальный элемент. напишите код в c++