В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
lubova1984
lubova1984
03.02.2020 08:26 •  Информатика

Дан одномерный массив из n натуральных чисел. найти сумму всех простых чисел.
нужна программа на c (самая простенькая)

Показать ответ
Ответ:
kristka98
kristka98
17.04.2023 19:46

1)

print("Введите числа через пробел")

list1 = input().split()

counter = 0

for elem in list1:

   if(elem[-1]=='2'):

       counter += 1

print(counter)

2)

print("Введите числа через пробел")

list1 = input().split()

counter = 0

for elem in list1:

   if(elem[-1]=='4'):

       counter += 1

print(counter)

3)

print("Введите числа через пробел")

list1 = input().split()

counter = 0

for elem in list1:

   if(elem[-1]=='7'):

       counter += 1

print(counter)

4)

list1 = input().split()

counter = 0

list2 = []

key = False

for i in list1:

   if(len(i) >= 2):

       key = True

       list2.append(i)

list1 = [int(i) for i in list1]

if not(key):

   print(min(list1[0:4]))

else:

   print(min(list2))

То же самое в pastebin:

https://pastebin.com/byZKnUaF

0,0(0 оценок)
Ответ:
ром569
ром569
24.08.2021 09:54

PascalABC.NET

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Println('Результат:', (a.Max + a.Min) / 2)

end.

Turbo Pascal

program abcd;

uses Crt;

const

 nn = 100;

var

 i, n, max, min: integer;

 a: array[1..nn] of integer;

 

begin

 ClrScr;

 Write('n = ');

 Readln(n);

 Randomize;

 max := -32768;

 min := 32767;

 for i := 1 to n do

 begin

   a[i] := Random(199) - 99;

   Write(a[i], ' ');

   if a[i] > max then

     max := a[i]

   else if a[i] < min then

     min := a[i]

 end;

 Writeln;

 Writeln('Результат: ', (max + min) / 2);

 ReadKey

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота