Сделайте, пожалуйста, номера 5-8. или хотя бы 2 из них
5-9 класс
|
5 ЗАДАЧА:
const
N = 10;
var
a: array [1..N] of integer;
i: integer;
begin
Writeln('Элементы массива: ');
for i:=1 to N do
begin
a[i]:= -100 + random(201);
Writeln('a[',i,'] = ', a[i]);
end;
Writeln; Writeln;
Writeln('Элементы нового массива: ');
for i:=1 to N do
Writeln('a[',i,'] = ', a[i]-1);
end.
6 ЗАДАЧА:
const
N = 10;
var
c: array [1..N] of integer;
i,A,B, SUMMA: integer;
begin
Write('A = ');
Readln(A);
Write('B = ');
Read(B);
Writeln; Writeln;
Writeln('Элементы массива: ');
for i:=1 to N do
begin
c[i]:= -100 + random(201);
Writeln('c[',i,'] = ', c[i]);
end;
Writeln; Writeln;
for i:=A to B do
SUMMA:= SUMMA + c[i];
Writeln('СУММУ = ', SUMMA);
end.
Другие вопросы из категории
переменной
2 каковы основные компоненты информационной культуры которые необходимы человеку для жизни и информационном обществе
3 перечислите основные инструменты рисования растровых графических редакторов и опишите их возможности
4 в чем состоит различие между нумерованными и маркированными списками
Читайте также
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.
их сумму и произведение.
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
координаты х и у и программа проверяет, подходит ли эта точка к графику или нет. Пример на 2 фото.
Очень нужно. 80 баллов
Нужно сделать небольшой реферат на тему " Устройство компьютера". (процессор, устройства, ввод-вывод; что то вроде этого)