М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

ПАСКАЛЬ
Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры.
Написать программу, которая будет находить произведение четных элементов массива.

👇
Ответ:
LeНин
LeНин
06.08.2020

var a: array [1..10] of integer;

var s,i: integer;

begin

s:=1;

for i:=1 to 10 do

 begin

 read(a[i]);

 if (a[i] mod 2 = 0) then s:=s*a[i];

 end;

writeln('Произведение четных элементов массива: ',s);

end.

4,6(37 оценок)
Открыть все ответы
Ответ:
Chelovechena1
Chelovechena1
06.08.2020

#include <iostream>

using namespace std;

 

int main() {

   int n, m;

   cin >> n >> m;

   int a[100][100];

 

   // чтение

   for (int i = 0; i < n; i++) {

       for (int j = 0; j < m; j++) {

           cin >> a[i][j];

       }

   }

   int max = a[0][0], max_i = 0, max_j = 0;

   for (int i = 0; i < n; i++) {

       for (int j = 0; j < m; j++) {

           if (a[i][j] > max) {

               max = a[i][j];

               max_i = i;

               max_j = j;

           }

       }

   }

   cout << max_i << " " << max_j;

   return 0;

}

Объяснение:

4,7(2 оценок)
Ответ:
kulickowakul
kulickowakul
06.08.2020

1)

var g1,g2:integer;

begin

writeln('Введите годы рождения двух детей');

readln(g1,g2);

if g1<g2 then

writeln('Старший ребенок родился в ',g1,'году')

else

writeln('Старший ребенок родился в ',g2,'году');

end.

2)

var r,v,ves:real;

begin

write('Введите рост ');

readln(r);

writeln('Введите вес ');

readln(ves);

v:=r-115;

if (r>=168) and (r<=173) then

if v=ves then

writeln('Поступающий будет принят в школу')

else

writeln('Поступающий не будет принят')

else

writeln('Поступающий не будет принят');

end.

4,6(53 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ