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

Дан одномерный массив размером 10 элементов на интервале [50; -50] определить какая сумма больше четных или нечетных элементов массива (9класс паскаль)

👇
Ответ:

Program TwoSums;

Uses Crt;

var a:array[1..10] of integer;

       i:integer;  

       s1,s2:longint 

 

 begin

      clrscr;

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

      s1:=0;s2:=0;   

      for i:=1 to 10 do

            begin  

 

                a[i]:=random(101)-50;

                 write(a[i]:3);  

                if (i mod 2)<>0 then s1:=s1+a[i]

                        else s2:=s2+a[i];    

             end;

 

      writeln;

 

      writeln('Сумма нечётных элементов массива:',s1);

       writeln('Сумма чётных элементов массива:',s2);

       if (s1=s2) then writeln('Суммы равны');

      if (s1>s2) then writeln('Сумма нечётных элементов массива больше !')

               else writeln(' Сумма чётных элементов массива больше !'); 

    readkey;

 

end.

 

4,4(84 оценок)
Открыть все ответы
Ответ:
kudryashovaek
kudryashovaek
27.02.2020
1. В системное программное обеспечение входят:
A) языки программирования (язык — не программа);
✔ операционные системы;
C) совокупность программ и устройств общего назначения (это ПО);
D) игры (это прикладное ПО);

2. Путь к файлу- это….
A) поименованная область на диске (это файл);
B) часть ОС, определяющая организации, хранения и именования файлов на носителях информации (это файловая система).
C) список имён каталогов, собранных в корневом каталоге;
✔ последовательность из имён каталогов, разделённых знаком «\»;

3. Отметьте правильную запись имени текстового файла?
A) basa-com;
✔ basa.txt (имя.расширение, txt — расширение текстовых файлов); 
C) :basa.txt;
D) BASA.SYS;

4. Какое расширение имеют исполняемые файлы?
A) docx, txt (word, текст)
✔ com, exe
C) txt, sys (текст, что-то системное)
D) sys, com (что-то системное, исполняемый)

5. Как называется наука об общих закономерностях получения, хранения, преобразования информации в сложных управляющих системах (например, машины, живые организмы, общество).
A) информатика
B) физика 
✔ кибернетика 
D) история 

6. Кто в 1950 году написал статью «Может ли машина мыслить»?
A) Винер
B) Колмогоров 
✔ Алан Тьюринг 
D) Ампер

7. Кто в 1946 году предложил теорию решения изобретательских задач (изучение проблем технического творчества систем искусственного интеллекта)?
✔ Альтшуллер
B) Полетаев 
C) Ломоносов 
D) Колмогоров 

8. Электронная таблица предназначена для:
✔ обработки преимущественно числовых данных, структурированных с таблиц; 
B) упорядоченного хранения и обработки значительных массивов данных; 
C) визуализации структурных связей между данными, представленными в таблицах; 
D) редактирования графических представлений больших объемов информации. 

9. В электронной таблице основной элемент рабочего листа – это:
✔ ячейка;
B) строка;
C) столбец;
D) формула.

10. Выберите верный адрес ячейки в электронной таблице:
A) 11D;
✔ F12 (последовательность латинских букв, потом номер строки);
C) AБ-3;
D) B1A. 

11 Выражение 5(A2+C3):3(2B2-3D3) в электронной таблице имеет вид:
A) 5(A2+C3)/3(2B2-3D3) ; 
B) 5*(A2+C3)/3*(2*B2-3*D3) ; 
✔ 5*(A2+C3)/(3*(2*B2-3*D3)) ; 
D) 5(A2+C3)/(3(2B2-3D3)) . 

12. Чему будет равно значение ячейки С1, если в нее ввести формулу =СУММ(A1:A7)/2:
Нет приложения

13. Первая позиционная система счисления была придумана:
✔ в древнем Вавилоне (шестидесятиричная);
B) в древней Индии;
C) в древнем Китае;
D) в древнем Египте.

14. Число, записанное в римской системе счисления CDXIV, равно: 
A) 1595;
✔ 414 (что-то... IV должно оканчиваться на 4);
C) 595;
D) 692.

15. Выберите правильную запись числа в десятичной системе счисления 63910 в развернутой форме:
✔ 6∙104+3∙103+9∙102+1*101
B) 6∙103+3∙102+9∙101+1*100 
C) 9∙102+3∙101+6∙100
D) 600+30+9
4,6(83 оценок)
Ответ:
olga810706
olga810706
27.02.2020
Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
4,6(56 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ