Другие разделы

Правила

FAQ

Пользователи

Комментарии

Друзья сайта

Flash Loops

RaceBook

Информатика

Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона [–15..-5]. Составить программу определения:

  • сумму положительных элементов массива;
  • подсчитать количество четных элементов массива;
  • минимального из элементов, значения которых лежат в диапазоне [y1..y2].

Решение подходит для Delphi/pascal:

  1. Const
  2.   n=20;
  3. Var
  4.   a:array[1..n]of integer;
  5.   i,sum_ch,y1,y2:byte;
  6.   sum_p,min:integer;
  7. begin
  8.   sum_p:=0;
  9.   sum_ch:=0;
  10.   Randomize;
  11.   for i:=1 to n do a[i]:=-15+random(21);
  12.   for i:=1 to n do write(a[i],' ');
  13.   for i:=1 to n do
  14.     if a[i]>0 then sum_p:=sum_p+a[i];
  15.   writeln('');
  16.   writeln('summa polojitelnih= ',sum_p);
  17.   for i:=1 to n do if a[i] mod 2=0 then inc(sum_ch);
  18.   writeln('kolichestvo chetnih= ',sum_ch);
  19.   y1:=random(10);
  20.   y2:=10+random(n);
  21.   if y2>n then y2:=y2-10;
  22.   min:=a[y1];
  23.   for i:=y1 to y2 do
  24.     if a[i]<min then min:=a[i];
  25.   writeln('minimalnii element iz promejutka ',y1,'-',y2,' = ',min);
  26. readln;
  27. end.

© Филимошин В. Ю., 2009-2015

Вход

Логин:

Зарегистрировать

Пароль:

Забыли пароль?

запомнить

Пятнашки

1
4
2
5
13
12
9
3
7
6
11
8
14
10
15

Опрос

Как Вы узнали об этом сайте?

От админа (1036)

48.2%

От друзей (33)

1.53%

Поисковик выдал... (991)

46.1%

Увидел(а) на других сайтах (46)

2.14%

Другое (41)

1.90%

Случайное фото

Эффект клавиатура U90

Счётчики

Яндекс.Метрика

Internet Map

Каталог@Mail.ru - каталог ресурсов интернет