1. Дан массив натуральных чисел?

КтОтО15 6 авг. 2020 г., 21:38:51

1. Program num1 ;

Uses crt ;

Var a : array [1.

100] of integer ; i, k, n, s : integer ;

Begin clrscr ; s : = 0 ; write('K = ') ; readln(k) ; write('N = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; for i : = 1 to n do if (a[i] MOD k) = 0 then s : = s + a[i] ; writeln('S = ', s) ;

End.

2. Program num2 ;

Uses crt ;

Var a : array [1.

100] of real ; i, n, j : integer ; x : array [1.

100] of real ;

Begin clrscr ; write('n = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; j : = 1 ; for i : = 1 to n do if a[i] = 0 then begin x[j] : = i ; j : = j + 1 end ; for i : = 1 to j - 1 do write(x[i], ' ') ;

End.

3. Program num3 ;

Uses crt ;

VAr a : array [1.

100] of real ; i, n : integer ;

Begin clrscr ; write('n = ') ; readln(n) ; for i : = 1 to n do readln(a[i]) ; for i : = 1 to n do begin if a[i]< ; > ; 0 then if a[i]> ; 0 then begin writeln('Положительное встречается раньше') ; break end else begin writeln('Отрицательное встречается раньше') ; break end ; end ;

End.

4. Program num4 ;

Uses crt ;

Var a : array [1.

100] of real ; i, n, j : integer ;

Begin clrscr ; write('n = ') ; readln(n) ; a[n + 1] : = a[n] + 1 ; for i : = 1 to n do readln(a[i]) ; j : = 0 ; i : = 1 ; while i< ; n do begin if a[i]< ; a[i + 1] then begin j : = j + 1 ; i : = i + 1 end else begin writeln('Последовательность невозрастающая') ; break end ; end ;

if i = n then writeln('Последовательность возрастающая') ;

End.

Jmjmjmjmj500 27 февр. 2020 г., 16:12:32 | 10 - 11 классы

Дан массив натуральных чисел ?

Дан массив натуральных чисел .

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

Седдааа 7 апр. 2020 г., 01:01:43 | 5 - 9 классы

Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три?

Дан массив состоящий из 10 элементов заполнить массив целых чисел найти сумму, количество элементов положительных и кратных три.

Arsenchinhalin 9 февр. 2020 г., 22:22:51 | 5 - 9 классы

Дан массив целых чисел?

Дан массив целых чисел.

Найти сумму элементов массива, больших данного числа А

C + +.

Диана200356 19 янв. 2020 г., 19:36:48 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

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

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

(паскаль).

FRiik12 13 янв. 2020 г., 00:35:37 | 10 - 11 классы

Помогите пожалуйста по информатике?

Помогите пожалуйста по информатике.

Дана последовательность целых чисел а1 а2 а3.

Аn. вычислите сумму отрицательных элементов.

Гоаркристине 5 окт. 2020 г., 00:50:37 | 5 - 9 классы

Надо сделать в паскале 1)Дан одномерный массив вещественных чисел?

Надо сделать в паскале 1)Дан одномерный массив вещественных чисел.

Найти минимальный элемент массива.

2) Дана последовательность 7 чисел.

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

Спасибо.

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

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

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

Задание по Pascal.

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

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

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

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

SarymovaKaramelya 4 июл. 2020 г., 23:23:18 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

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

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

Кпек42пк 12 июн. 2020 г., 02:41:47 | 5 - 9 классы

Дан массив из 20 натуральных чисел?

Дан массив из 20 натуральных чисел.

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

Zhanara20000 27 окт. 2020 г., 18:53:16 | 5 - 9 классы

Дан массив целых чисел?

Дан массив целых чисел.

Выяснить, верно ли, что количество положительных элементов не превышает 5.