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

Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел.составьте программу, с которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами

👇
Ответ:
Joan36
Joan36
17.04.2020

uses crt;

var i,s:integer;
a:array[1..20] of integer;

begin
for i:=1 to 20 do a[i]:=random(100)+0;
for i:=1 to 20 do write(a[i],' ');
writeln;
for i:=1 to 20 do if i mod 2 <>0 then s:=s+sqr(a[i]);
writeln('suma = ',s);
readln;
end.

4,4(76 оценок)
Открыть все ответы
Ответ:
zef3
zef3
17.04.2020
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (p,q,s):=(1,2,0);
  var k:=0;
  Write('(1,5) ');
  for var i:=3 to 1000 do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      (p,q,s):=(q,s,i);
      if q-p=4 then Write('(',p,',',q,') ')
      else
        if s-p=4 then Write('(',p,',',s,') ')
      end
    end
end.

Результат
(1,5) (3,7) (7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)
4,4(49 оценок)
Ответ:
marmeoladikp07wow
marmeoladikp07wow
17.04.2020

•Находиться в классе в  верхней или во

влажной одежде;

     •Класть одежду и сумки на столы;

     •Находиться в классе с напитками и едой;

     •Располагаться сбоку или сзади от

включенного монитора;

     •Присоединять или отсоединять кабели,

трогать разъемы, провода и розетки;

     •Передвигать компьютеры и мониторы;

     •Прикасаться  к экрану монитора;

     •Включать и выключать компьютеры

самостоятельно;

     •Перекрывать вентиляционные отверстия

на системном блоке и мониторе;

     •Вставать без разрешения преподавателя

со своих мест, когда входят посетители;

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