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

Одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.

👇
Ответ:
demirooova
demirooova
16.02.2020
Const n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
 begin Write('Введите элемент' ,i,': '); Read(a[i]);
 end; 
 min:=a[1];
 for i:=1 to n do
 Begin 
 if a[i]<min then
 begin 
min:=a[i]; 
 end; 
end; 
Writeln('min:',min); 
  max:=a[1];
 for i:=1 to n do
 Begin 
If a[i]>max then 
 begin  max:=a[i]; 
end; 
 end; 
Writeln('max: ',max);  
summa := 0 ;  
  for i:=1 to n do 
begin
if (a[i] mod 2 = 0) then summa := summa + a[i] 
 end; 
  writeln('Сумма четных элементов равна : ', summa); 
  readln;
end.
4,6(1 оценок)
Открыть все ответы
Ответ:
PavelOlga
PavelOlga
16.02.2020
//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;

bool StrangeSeq(int n){
     if (k<n){
              if(n%k==0){
                         cout<<"false";
                         return false;
                         }
                         k++;
                         StrangeSeq(n);
                         }
                         else
                         {
                             cout<<"true";
                             return true;
                             }
}
                
int main(){
    int n;
    cin>>n;
    StrangeSeq(n);
    cin.get();
    cin.get();
}
4,4(94 оценок)
Ответ:
Stefalove
Stefalove
16.02.2020
Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. 
Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.
4,6(92 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ