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

Напишите очень нужно! Код программы,генерирующей список из 20 случайных целых чисел в диапазоне от 10 до 99 и выводящей на экран количество его элементов,оканчивающихся на 5

👇
Ответ:
Ээн
Ээн
07.11.2020

Если на Паскале, то вот ↓

Const n=20; m=100;

var

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

i:integer;

begin

writeln('Исходный массив:');

for i:=1 to n do

begin

a[i]:=random(m);

write(a[i],' ');

end;

writeln;

begin

writeln('Обратный массив:');

for i:=n downto 1 do write(a[i],' ');

end;

end.

Пример:

Исходный массив:

72 31 25 80 66 64 97 13 40 4 40 46 14 27 45 9 52 46 86 75

Обратный массив:

79 86 46 52 9 45 27 14 46 40 4 40 13 97 64 66 80 25 31 75

Объяснение:

4,5(5 оценок)
Открыть все ответы
Ответ:
Alina182004
Alina182004
07.11.2020

ЭЛТ — монитор на основе электронно-лучевой трубки

ЖК — жидкокристаллические мониторы

Плазменный — на основе плазменной панели

LED-монитор — на технологии LED

OLED-монитор — на технологии OLED

qLED-мониторы (QD-LED) - на основе квантовых точек и жк-кристаллов

Пластиковые - на основе светоизлучающего пластика.

Виртуальный ретинальный дисплей  — технология устройств вывода, формирующая изображение непосредственно на сетчатке глаза

Проекционные (лазерные (LPD)) — на основе лазерной панели

Проецируемые — видеопроектор и экран, размещённые отдельно или объединённые в одном корпусе

Объяснение:

4,4(98 оценок)
Ответ:
Сашуня122004
Сашуня122004
07.11.2020
1)
 var 
n:integer;
begin 
readln(n); 
if(n<0)then write(0) 
else write(n+4);
end.

2)
 var
  a, b: integer;
 begin
  readln(a, b);
  if(a = b) then
write(1)
  else
write(0);
end.

3)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a >= 0) then s := s + 1;
  if(b >= 0) then s := s + 1;
  if(c >= 0) then s := s + 1;
  write(s);
end.

4)
var
  a, b, c, s: integer;
 begin
  s := 0;
  readln(a, b, c);
  if(a > 0) then s := s + a;
  if(b > 0) then s := s + b;
  if(c > 0) then s := s + c;
  write(s);
end.
5)
 var
  a, b, c: integer;
 begin
  readln(a, b, c);
  if (a < b) then swap(a, b);
  if (a < c) then swap(a, c);
  if (b < c) then swap(b, c);
  write(a, ' ', b, ' ', c);
end.

6)
 var n, k, s, i: integer;
 begin
  s := 0;
  readln(n, k);
  for i := 1 to n.ToString.Length do
  if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
  write(s);
 end.

7)
 var n, s, i: integer;
 begin
  s := 0;
  readln(n);
  for i := 1 to n do
    s := s + i;
  write(s);
 end.

9)
 var n, i: integer;
 begin
  readln(n);
  for i := n downto 1 do
  write(i);
 end.

12
 var
  n, i: integer;
  s: real;
 begin
  s := 0;
  readln(n);
  for i := n downto 1 do
  s:=s+(0.1*i);
    write(s);
 end.

13)
 var n, i: integer;
 begin
  readln(n);
  for i := 1 to n do
    write(sqr(i), ' ');
end.

14)
 var
  n, i, c: integer;
 begin
  i := 1;
  c := 0;
  readln(n);
  while (c <> n) do
  begin
    if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
    i := i + 1;
  end;
end.

15)
 var
  n, i, a: integer;
  c: real;
 begin
  i := 1;
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(a);
    c := c + a;
  end;
  write(c / n)
end.

16)
 var
  n, i, a: integer;
 begin
  i := 1;
  while true do
   begin
    read(a);
    if(a = 0) then break;
    n := n + 1;
  end;
  write(n)
end.
4,8(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ