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

Дано натуральное число n и последовательность а1, натуральных чисел, заданных с клавиатуры. определить количество и сумму элементов этой последовательности, имеющих чётные порядковые номера и являющихся нечётными числами. решить для n=10 (написать на паскале).

👇
Ответ:
Neznat13
Neznat13
18.11.2022

program a;

uses crt;

var i,n, sum,qty:integer;

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

 

begin

clrscr;

n:=10;

sum:=0;

qty:=0;

for i:=1 to n do begin

readln ('a[',i.']=',a[i]);

end;

for i:=1 to n do begin

if i mod 2 = 0 then

if a[i] mod 2 <>0 then

sum:=sum+a[i];

inc(qty);

endif;

endif;

end;

writeln('Сумма составила ', sum);

writeln('Количество составило ',qty);

readkey;

end.

4,4(77 оценок)
Ответ:
Cyndyma
Cyndyma
18.11.2022

const

  n=10;

var

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

  i,k,sum:integer;

begin

  k:=0;

  sum:=0;

  for i:=1 to n do 

    begin

       write ('A[',i,'] = ');

       readln(a[i]);

       if (i mod 2 = 0) and (a[i] mod 2 <> 0) then

         begin

            k:=k+1;

            sum:=sum+a[i];

         end; 

    end; 

  writeln ('Summa: ',sum);

  writeln ('Kol-vo: ',k);

  readln;

end.

4,5(22 оценок)
Открыть все ответы
Ответ:
fourkovioxk812
fourkovioxk812
18.11.2022

const

 N=5;

 M=3;

type matr=array [1..N,1..M] of integer;

var

 a:matr;

 t,k:integer;

procedure Random(var b:matr; var l,p:integer);

 var i,j:integer;

 begin

   for i:=1 to N do

     begin

       for j:=1 to M do

         begin

           a[i,j]:=random(l)+1;

           write(a[i,j]:4);

         end;

       writeln;

     end;

   writeln;

   for j:=1 to M do

     write(a[p,j]:4);

 end;

begin

 write('Введите длину отрезка(t): '); readln(t);

 write('Введите интересующую строку(k): ');readln(k);

 Random(a,t,k);

 writeln;

end.

В задании не требуется выводить всю матрицу, но для проверки оставил. Убери, если критично, но правильность работы программы не проверить будет

4,4(37 оценок)
Ответ:
persik123789
persik123789
18.11.2022

Объяснение:

Компьютерный ви́рус — вид вредоносного программного обеспечения внедряться в код других программ, системные области памяти, загрузочные секторы, и распространять свои копии по разнообразным каналам связи.

Основная цель вируса — его распространение. Кроме того, часто его сопутствующей функцией является нарушение работы программно-аппаратных комплексов — удаление файлов и даже удаление операционной системы.

В обиходе «вирусами» называют всё вредоносное ПО, хотя на самом деле это лишь один его вид.

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