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

Напишите программу на языке программирования паскаль в результате выполнения которого получалась сумма всех элементов массива

👇
Ответ:
Ди1501
Ди1501
02.09.2022
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('S=',a.Sum)
end.

Пример
n= 13
-33 4 19 46 -23 19 -32 31 -10 48 -13 -32 -10
S=14
4,5(91 оценок)
Ответ:
Elina123671
Elina123671
02.09.2022
Var a: array  [1..20] of integer;    i: integer;    sum: integer;begin
 sum:=0; for i:=1 to 20 do begin                   a[i] := random(20);                   write(a[i],' ');                   sum:= sum+a[i];              end;               writeln(); writeln('Сумма всех элементов : ',sum); end.
4,4(61 оценок)
Открыть все ответы
Ответ:
helen15111983
helen15111983
02.09.2022
1) 
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=random(10); 
Write(A[i]:4); 
end;       
Writeln;
 Writeln('Введите число: '); 
Readln(s); 
For i:=1 to n do 
 begin   
If A[i]=s then k:=k+1; 
end; 
Writeln('Число  ',s,', его кол-во в массиве:  ',k,' шт.');
END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
 i,min,mini,max,maxi:integer;
BEGIN
Clrscr; 
For i:=1 to n do 
 begin 
A[i]:=Random(20); 
 Write(A[i]:4);
  end;
  Writeln; 
max:=A[1]; 
min:=A[1]; 
For i:=1 to n do 
 begin 
 if A[i]>max then 
 begin 
 maxi:=i; 
 max:=A[i];   
end; 
  if A[i]<min then
 begin   
mini:=i; 
 min:=A[i]; 
  end; 
end; 
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);   
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
END.
4,7(40 оценок)
Ответ:
ievlevaaleksanra
ievlevaaleksanra
02.09.2022

ля представления различных классов линий в CorelDRAW предусмотрено несколько классов объектов. Объекты объединяются в один класс по признакам общей структуры и поведения, то есть реакции на действия с ними. При этом действия с линиями, которые представляют собой, например, изображение лица на портрете и размерную схему на чертеже, существенно отличаются друг от друга.

Модель кривой

В основе принятой в CorelDRAW модели линий лежат два понятия: узел и сегмент.

Узлом называется точка на плоскости изображения, фиксирующая положение одного из концов сегмента. Сегментом называется часть линии, соединяющая два смежных узла. Узлы и сегменты неразрывно связаны друг с другом: в замкнутой линии узлов столько же, сколько сегментов, а в незамкнутой - на один больше.

Любая линия в CorelDRAW состоит из узлов и сегментов, и все операции с линиями на самом деле представляют собой операции именно с ними. Узел полностью определяет характерпредшествующего ему сегмента, поэтому для незамкнутой линии важно знать, который из двух ее крайних узлов является начальным, а для замкнутой - направление линии (по часовой стрелке или против нее). По характеру предшествующих сегментов выделяют три типа узлов: начальный узел незамкнутой кривой, прямолинейный (Line) и криволинейный (Curve). На рис. 1 промежуточный узел 1 и конечный узел - прямолинейные, а промежуточный узел 2 - криволинейный.

В средней части строки состояния для кривой выводится обозначение класса объекта - (Кривая на слое 1), а также количество узлов этой кривой.

Объяснение:

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