komolovda
?>

Що буде результатом виконання даної програми при натиснутій клавіші пропуск?

Информатика

Ответы

qwe54344
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  // общая часть
  var a:=ReadArrInteger('Массив:',ReadInteger('n='));
  var b:=ReadInteger('b=');
  // часть для задачи 1
  var i:=a.IndexOf(b);
  if i<0 then Writeln('Нет совпадений')
  else WritelnFormat('1. A[{0}]={1}',i+1,a[i]);
  // часть для задачи 2
  Writeln('2. k=',a.Where(x->x=b).Count);
  // часть для задачи 3
  var s:=a.Select((x,i)->x=a[i+1:a.Length].Sum).ToArray;
  var k:=s.IndexOf(True);
  if k>=0 then WritelnFormat('3. A[{0}]={1}',k+1,a[k])
  else Writeln('3. Не существует')
end.

Тестовое решение:
n= 10
Массив: -9 21 0 -9 21 6 -2 14 18 -15
b= -9
1. A[1]=-9
2. k=2
3. A[5]=21
Alekseevich_Elena
Int a[50],summa=0;                                                                                                   for(int i=0;i<50;i++)                                                                                                    { a[i]=rand();                                                                                                              if(a[i]==0)  summa++;                                                                                               cout<<"Количество равно "<<summa<<"\n";                

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Що буде результатом виконання даної програми при натиснутій клавіші пропуск?
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vadim1140
Nadirovich1317
АльбертовичБерезин58
bogdanyukn562
rechkai64
Andei
Kashirina
КузменковаЖигулин
Yevsyukov1697
bei07
elena-ruzadom
brovkinay
andreevaalisa
Verdievruslan
vikka30