1)Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на
5-9 класс
|
экран.
program gt;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
for i:=1 to n do
begin
a[i]:=i;
write(a[i],' ');
end;
writeln;
s:=((1+n)*n)div 2;
writeln(s);
end.
2)
program gt;
var a:array[1..1000]of integer;
i,n,s:integer;
begin
read(n);
s:=0;
for i:=n downto 1 do
begin
a[i]:=i;
write(a[i],' ');
if(i mod 3=0)then s:=s+1;
end;
writeln;
writeln(s);
end.
3)
непонятно условие
там что за n2?
Помогите пожалуйста, хотя бы одно решить!!!
Другие вопросы из категории
Начало книгопечатания в Европе.
Появление алфавитного письма в Финикии.
Появление первых лазерных дисков.
Первые следы иероглифического письма в Древнем Египте.
Начало книгопечатания в России.
Появление первых жестких дисков для компьютеров.
изобретение магнитофона.
Изобретение фотографии.
первая запись звука с помощью фонографа.
Демонстрация первого кинофильма.
Будь-ласка допоможіть!!! Тим хто допоможе хай вам Бог пошле щастя!
Читайте также
Входные данные:
в первой строке целое число n (0 < n ≤ 100) - кол-во элементов в массиве и целые числа i1 и i2 (0 < i1, i2 ≤ 100). Во второй строке целые числа Х1, Х2,..,Хn разделенные пробелом (числа по модулю не превосходят 32000) - значения элементов массива.
Выходные данные:
сумма элементов массива c номерами от i1 до i2.
(Написать программу на Паскале)
2. Опишите массив для хранения зарплаты за каждый месяц. Зарплату считать целым числом.
3.Опишите: a)Переменную В для массива, состоящую из 8 символов. b)Переменную MAS для массива, состоящего из 100 вещественных чисел. c)Переменную DAY для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5
.4. Пусть А : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям: a. Третий элемент массива сделать равным 5. b. Вывести на экран 7-й элемент массива. c. Ввести значение 1-го элемента массива. d. Вычислить сумму 1,2 и 3-го элементов массива.
5. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вычислить сумму всех элементов массива (используйте цикл).
6. Пусть C : array [1..10] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Вывести на экран все элементы массива.
7. Пусть А : array [1..15] of real. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Поменять местами первый и последний элементы массива.
8. Пусть В : array [1..20] of integer. Напишите операторы, соответствующие следующим действиям, при необходимости используя дополнительные переменные: Заполнить массив случайными числами из интервала [-24;37].
кратных числу 3.
2) составьте программу , которая заполняет массив а[1..10 ] случайными целыми числами в диапозоне от 1 до 100 и выводит на экран среднее арифмитическое элементов массива
элементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.