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

Написать программу: Дан одномерный массив С[100], заполненный числами из диапазона от -26 до 15. Написать программу, которая будет находить сумму элементов массива, стоящих на нечетных местах ЗАВТРА КРАЙ СДАТЬ

👇
Ответ:
вирона1
вирона1
09.03.2020

program Prog;

var c: array[1..100] of Integer;

summ, i: Integer;

begin

randomize;

// заполнение

for i := 1 to 100 do

 c[i]:=random(42)-26;

// вывод массива

write('Массив: ');

for i := 1 to 100 do

 write(c[i],' ');

// вычисление суммы элементов на нечетных местах

for i := 1 to 100 do

 if ((i mod 2) = 1) then

  summ+=c[i];

writeln;

// вывод этой суммы

write('Сумма элементов на нечетных местах: ');

write(summ);

end.

4,6(86 оценок)
Открыть все ответы
Ответ:
ksuhamalinovskaj
ksuhamalinovskaj
09.03.2020

Плюсы:

1)Специально разработанные  программы оказывают в обработке файлов и документов

2)В  сети также можно воспользоваться необходимыми для учёбы доп. материалами.

3) всю необходимую инфу можно найти благодаря одному нажатию клавиши

4)социальные сети - знакомства - бесплатные электронные письма - независимо в какой стране находишся

Минусы:

1)Компьютерная сеть  затягивает человека в виртуальный мир, лишая его живого общения.

2)общения человека с компьютером – это ухудшение здоровья как психического, так и физического.

3)Человеку просто следует ограничивать себя в этом занятии

4,7(95 оценок)
Ответ:
иришка276
иришка276
09.03.2020

№1

program fff;

var a, b, c: integer;

begin

writeln('введите первое число');

readln(a);

b:=a+1;

c:=a+2;

writeln(a);

writeln(b);

writeln(c);

end.

№2

program fff;

var r, o, p: integer;

begin

writeln('введите длину ребра');

readln(r);

o:=r*r;

o:=r*o;

p:=r*r;

writeln('объем куба=',o);

writeln('площадь стороны=',p);

end.

№3

program fff;

var ch, a, b, c, su, pr: integer;

begin

writeln('введите трехзначное число');

read(ch);

a:= ch div 100;

b:=ch mod 10;

c:= ch div 10;

c:= c mod 10;

su:=a+b+c;

pr:=a*b*c;

writeln('сумма=',su);

writeln('произведение=',pr);

end.

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