Pascal, Дан целочисленный массив из 30 элементов?

Ni2005 29 апр. 2020 г., 02:02:07

Const n = 30 ;

var a : array[1.

N] of integer ;

i, s, f : integer ;

flag : boolean ;

begin

flag : = false ;

for i : = 1 to n do begin a[i] : = random( - 50, 51) ; if (not flag) and (a[i]> ; 0) then begin flag : = true ; f : = i ; end ; write(a[i] : 4) ;

end ;

writeln ;

for i : = f + 1 to n do s : = s + a[i] ;

writeln(s) ;

end.

Ник8996 29 апр. 2020 г., 02:02:08

/ / PascalABC.

NET 3.

1, сборка 1200 от 13.

03. 2016

begin var a : = ArrRandom(30, - 99, 99) ; a.

Println ; Writeln('s = ', a.

SkipWhile(x - > ; x< ; = 0).

Skip(1).

Sum)

end.

Тестовое решение : - 86 - 3 - 66 19 87 46 44 73 17 - 18 37 83 31 33 15 - 71 - 26 30 - 17 24 10 45 3 84 8 82 - 88 81 8 56

s = 677.

Yarima 12 окт. 2020 г., 14:59:23 | 10 - 11 классы

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали на языке Turbo Pascal?

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали на языке Turbo Pascal.

Настя2005 3 янв. 2020 г., 06:37:14 | 5 - 9 классы

Дан одномерный массив, состоящий из вещественных элементов?

Дан одномерный массив, состоящий из вещественных элементов.

Найти сумму элементов массива, расположенных до последнего положительного элемента.

Ozakharyants 10 февр. 2020 г., 06:25:10 | 5 - 9 классы

Дан целочисленный одномерный массив, состоящий и n элементов?

Дан целочисленный одномерный массив, состоящий и n элементов.

Подсчитать количество его положительных, отрицательных и нулевых элементов.

Ммм000 24 сент. 2020 г., 15:14:27 | 5 - 9 классы

Дан одномерный массив А из 12 - ти элементов?

Дан одномерный массив А из 12 - ти элементов.

Найти суммы отрицательных элементов и суммы положительных элементов.

Vashenkoivan666 15 нояб. 2020 г., 09:14:57 | 10 - 11 классы

Ребят, выручайте?

Ребят, выручайте!

Задание по Pascal.

1. В массиве А[N] занесены натуральные числа.

Найти сумму тех элементов, которые кратны данному К.

2. В целочисленной последовательности есть нулевые элементы.

Создать массив из номеров этих элементов.

Mint2009 19 дек. 2020 г., 18:48:29 | 10 - 11 классы

Дан одномерный массив, состоящий из 20 элементов?

Дан одномерный массив, состоящий из 20 элементов.

Найти сумму элементов массива, принадлежащих промежутку от А до В PASCAL.

Arinapalamarchu 2 янв. 2020 г., 08:46:49 | 5 - 9 классы

Составьте програму : Дан целочисленный одномерный массив, состоящий из n элементов?

Составьте програму : Дан целочисленный одномерный массив, состоящий из n элементов.

Найти сумму нечетных элементов, кратных 3.

Николай11111вхпшпа 16 янв. 2020 г., 12:10:15 | 10 - 11 классы

Ввести целочисленный массив состоящий из 17 элементтв?

Ввести целочисленный массив состоящий из 17 элементтв.

Найти сумму и количество положительных элементов .

Паскаль АБС.

Chernovdanil2 14 мар. 2020 г., 08:27:02 | 10 - 11 классы

Pascal?

Pascal.

Дан массив.

Найти сумму тех элементов , которые расположены до максимального элемента данной последовательности .

Результат сохранить в файл.

Helsing2002 21 янв. 2020 г., 06:45:50 | 10 - 11 классы

Pascal abc Задан массив М, состоящий из N целочисленных элементов?

Pascal abc Задан массив М, состоящий из N целочисленных элементов.

Упорядочить элементы таким образом, чтобы вначале располагались все отрицательные аргументы, а после них все положительные.