catmos
?>

Задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран найти сумму всех элементов массива

Информатика

Ответы

zolotayaoxana1982

unit math;

program chisla;

var

  a: array[1..20] of intteger;

  i,s: integer;

begin

  s: =0;

  for i: =1 to 20 do begin

    a[i]: =randomrange(-5,1);

    write(' ',a[i]);

    s: =s+a[i];

  end;

readln;

writeln('сумма элементов массива= ',s);

end.

kristina
Билл гейтс, марк цукерберг, шон паркер, торвальдс линус… все эти люди прославились особому таланту в   программировании. работа в такой области считается преимущественно мужской, но первым программистом является женщина. это дочь знаменитого поэта байрона – ада лавлейс. именно ей появились первые приёмы вычислениями, которые до сих пор используются в современном программировании. в настоящее время профессия программиста стала востребованной. прежде всего, это связано с развитием компьютерных технологий и интернета. такие специалисты участвуют в разработках различных программ для текстовых редакторов, сайтов, игр, систем видеонаблюдения, сигнализации и т.д.
mdsazonovatv1173
Var n,i,j,c: integer; a: array[1..201] of integer; begin   writeln('введите колөво элементов массива');   readln(n);   for i: =1 to n do a[i]: =-100+random(201);   writeln('исходный массив');   for i: =1 to n do write(a[i]: 5);   writeln;   for i: =1 to n-1 do   for j: =i+1 to n do   if a[i]< a[j] then   begin       c: =a[j];       a[j]: =a[i];       a[i]: =c;   end;   writeln('отсортированный массив');   for i: =1 to n do   write(a[i]: 5);   writeln;   end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран найти сумму всех элементов массива
Ваше имя (никнейм)*
Email*
Комментарий*