Вычислить сумму ряда. Одномерные, двумерные массивы

Осталось 3лабы по информатике но с паскалем не дружу помогите пожалуйста.

№1(4я л.р.). В приводимых задачах необходимо составить программу расчета конечной суммы и сравнения полученного результата с контрольным значением. Число членов суммы вводится с клавиатуры. вид суммы контрольное значение
1+2+3+4+...+N (N(N+1))/2
1ю лабу надо сделать 2мя способами(если не ошибаюсь 2мя разными операторами цикла)

№2(5я л.р.). 1. Дан массив целых чисел а1,…, аn. Сформировать массив В из положительных элементов мас-сива А.
Правила оформления работы(для №2)
1.Предусмотреть вывод в на экране ФИО, № группы студента, сделавшего работу.
2.Автоматическое формирование исходного массива.
3.Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.

№3.(6я л.р.)
Обработка двумерного массива с использованием подпрограмм.
В качестве условия задачи берется задание из 4 лабораторной работы, но работать не с одной матрицей, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам.

Правила оформления работы
1. Предусмотреть вывод на экран ФИО, № группы студента, сделавшего работу.
2. Автоматическое формирование исходного массива.
3. Вывод исходного массива, промежуточных результатов и конечного результата с пояснениями.
4. Оформить программу с использованием подпрограмм (процедур и функций – по необходимости). Обосновать использование процедур и функций. Обязательны процедуры формирования и вывода массива.

Заранее большое спасибо.

0

2)
Свои ФИО уж сами в конце допишите.

1

Спасибо большое за помощь!))
Пожалуйста кто нибудь помогите ещё с 4й(№1) и 6й(№3) лабой ато завтро уже нести надо((
И в 6й опечатка там её надо делать на основе 5й а не 4й.

Добавлено через 12 часов 43 минуты

Сообщение от BumerangSP 2) Pascal 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 uses crt; var i,j,n:integer; a,b: array [1..100] of integer; begin  clrscr;  randomize;  j:=1;  write('Порядок: ');  readln(n);  for i:=1 to  n do   begin    a[i]:=random(10)-5;    if a[i]>0 then     begin      b[j]:=a[i];      inc(j);     end;    write(a[i]:3);   end;   writeln;   for i:=1 to j do    write(b[i]:3);   readln; end. Свои ФИО уж сами в конце допишите.

А где и какой командой прописывать ФИО с группой?)

Добавлено через 22 минуты
program qq;
var
i, sum, n: longint;

begin
read(n);
for i := 1 to n do sum := sum (i);
if sum = (n*(n + 1)) / 2 then writeln('yes')
else writeln('no');
end.
В 4й наверно что-то вроде этого должно быть только есть ошибка(я полагаю в строке с for)
и ещё эту задачу с другим оператором цикла надо сделать...

0

Сообщение от Crauser73 где и какой командой прописывать ФИО с группой?)

Да можно хоть в самом начале, после 4-й строчки.

1

Лабы сдал. спасибо за помощь.тему можно закрывать.

0