Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих елементів,вивести про це повідомлення. завд. Визначити суму

10-11 класс

номерів всіх негативних елементів. вивести ці номери.

8950123456789 16 июня 2015 г., 17:34:20 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
OnEShoTeR
16 июня 2015 г., 18:46:13 (8 лет назад)

Program Linao;
uses crt;
const n = 20;
var
  x:array [1..n] of real;
  i,k,j,sum:integer;
  max, min,temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  for i:=1 to n do
    begin
      write('*');
      for j:=1 to n*100000 do j:=j;
    end;
  writeln;
  k:=0;
  randomize;
  sum:=0;
  writeln('негативні елементи: ');
  for i:=1 to n do
    begin
      x[i]:=random(101)-50;
      if x[i]<0 then
        begin
          sum:=sum+i;
          writeln(i,'-й елемент, рівний ',x[i]);
          k:=1;
        end;
    end;
  if k=0 then
    writeln('Немає таких елементів!');
end.

Ответить

Другие вопросы из категории

Продолжите цепочку символов до 20 слова

ААААА
ААААО
ААААУ
АААОА

Читайте также

помогите решить пліз хотяби несколько

]Варіант-1
Дана послідовність слів. Визначити кількість букв “А” і “Б” в ній. Якщо таких букв немає, то вивести повідомлення.

Варіант-2
Скласти програму, яка підраховує число тих слів у реченні із И букв, в яких на другій позиції знаходиться задана буква. Слова розділенні пропусками. Якщо таких слів немає, то видається повідомлення .

Варіант-3
Скласти програму, яка із заданого слова вилучає всі букви “А”.

Варіант-4
Скласти програму, яка виводить на екран всі символи.

Варіант-5
Скласти програму, яка визначає скільки цифр у заданому числі і знаходить їх добуток.

Варіант-6
Скласти програму, яка підраховує кількість букв у введеному реченні. Словом м/б розділенні пропусками, або комами.

Варіант-7
Написати програму, яка перевіряє чи стоїть перед “що” кома.

Варіант-8
Написати програму, яка перевіряє чи поставили в кінці речення, що вводиться крапка.

Варіант-9
Скласти програма, яка виводить слово ззаду на перед.

Варіант-10
Дана послідовність слів. Перевірити чи є в ній задане слово.

Варіант-11
Задати речення. Програма повинна виводити на екран всі символи, що зустрічаються до першого знака “-”. Якщо його немає, то виводиться повідомлення.

Варіант-12
Вивести слово задом наперед.

Варіант-13
У заданому реченні знайти найдовше (найменше) слово.

Варіант-14
Скласти програму, яка із слова “інтеграл” утворює слово “гантелі”, “тигр”.



Варіант-15
Знайти найменше із слів, що записані в реченні.

Варіант-16
Написати програму, яка по назві дня неділі визначає номер цього дня 1...,2,...,7.

Варіант-17
Дана послідовність слів підрахувати скільки слів закінчуються на “А”.

Варіант-18
Скласти програму, яка підраховує скільки раз в послідовність слів зустрічається буквосполучення “сок”.

Варіант-19
Написати програму, яка виводить на екран коди всіх букв.

Варіант-20
Скласти програму, яка перевіряє чи поставили вкінці речення “крапку”.

Варіант-21
Програма підраховує число тих слів в, яких на другій позиції стоїть буква “А”.

Варіант-22
Скласти програму, яка виводить на екран всі символи після знаків “-“.

Варіант-23
Написати програму, яка визначає, чи являється введене слово “перевертишем” (напр. “ПОТОП”, “КАЗАК”).

Варіант-25
Скласти програму, яка вилучає із заданого слова всі букви “А”.

Зна­че­ния двух мас­си­вов A и B с ин­дек­са­ми от 1 до 100 за­да­ют­ся при по­мо­щи сле­ду­ю­ще­го фраг­мен­та про­грам­мы:for i : = 1 to

100 doA[i] : = i*i;for i : = 1 to 100 doB[i] : = A[i]-100;Сколь­ко по­ло­жи­тель­ных зна­че­ний будет в мас­си­ве B?

Для груп­по­вых опе­ра­ций с фай­ла­ми ис­поль­зу­ют­ся мас­ки имён

фай­лов. Маска пред­став­ля­ет собой по­сле­до­ва­тель­ность букв, цифр и
про­чих до­пу­сти­мых в име­нах фай­лов сим­во­лов, в ко­то­рых также
могут встре­чать­ся сле­ду­ю­щие сим­во­лы:

Сим­вол «?» (во­про­си­тель­ный знак) озна­ча­ет ровно один про­из­воль­ный сим­вол.

Сим­вол «*» (звёздоч­ка) озна­ча­ет любую
по­сле­до­ва­тель­ность сим­во­лов про­из­воль­ной длины, в том числе
«*» может за­да­вать и пу­стую по­сле­до­ва­тель­ность.

Опре­де­ли­те, какое из ука­зан­ных имён фай­лов удо­вле­тво­ря­ет маске:
?mur*r.?st

1) mur.lst
2) omurr.sst
3) omur.sts
4) mur.lst


последовательность: 4, 1, 9, 3, 7, 5, из всех чисел которые больше 4 вычесть 3 затем удалить из всей последоательности нечетные числа

Пожалуйста с решением

В про­грам­ме опи­сан од­но­мер­ный це­ло­чис­лен­ный мас­сив с ин­дек­са­ми от 0 до 10. Ниже пред­став­лен фраг­мент про­грам­мы, об­ра­ба­ты­ва­ю­щей

дан­ный мас­сив.

s: = 0;

n : = 10 ;

for i : = 1 to n do

begin

if i = n - i then s : = s + A[i] + A[i + 1];

end;

В на­ча­ле вы­пол­не­ния этого фраг­мен­та в мас­си­ве на­хо­ди­лись числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т. е. эле­мент А[0]=0, А[1]=2 и т. д. Чему будет равно зна­че­ние пе­ре­мен­ной s после вы­пол­не­ния дан­ной про­грам­мы?


1) 0
2) 11
3) 22
4) 110

Зна­че­ния двух мас­си­вов A[1..100] и B[1..100] за­да­ют­ся с по­мо­щью сле­ду­ю­ще­го фраг­мен­та про­грам­мы:for n:=1 to 100 doA[n] := n -

10;for n:=1 to 100 doB[n] := A[n]*n;Сколь­ко эле­мен­тов мас­си­ва B будут иметь по­ло­жи­тель­ные зна­че­ния?



Вы находитесь на странице вопроса "створити і вивести масив а з nелементами,де n-20. у випадку відсутності шуканих елементів,вивести про це повідомлення. завд. Визначити суму", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.