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

Знания

Информатика

1 ответ:

nmv [153]4 года назад

0 0

Program n1;
const n=10;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do a[i]:=i*i;
for i:=1 to n do writeln(a[i]);
end.

Читайте также

Срочноооооо. Даю 60 баллов. Олимпиада, ответ не 30 минут!!!!

gssk77

Ответ:

1800 СЕКУНД!!!

Объяснение:

30 мин = 1800 секунд

0 0

4 года назад

Написать программу которая вычисляет сумму n/1 чисел

фатимa1982 [7]

////////////////////////

0 0

4 года назад

Среди чисел в ячейках B5…B27 найти номер последнего элемента, равного числу A Создать макрос с использованием цикла Do

VlPasternac

Sub aaa()
    a = CInt(InputBox("Введите А"))
    i = 27
    Do While i >= 5
        If Cells(i, 2) = a Then
            MsgBox "Значение найдено в строке " + CStr(i)
            Exit Sub
        End If
        i = i - 1
    Loop
    MsgBox "Значение не найдено"
End Sub

0 0

4 года назад

Написать программу на турбо паскале на вычисление произведения чисел a и b

эдуард1551

Program Turbo;

uses Crt;

var
a,b,r:real;

begin
Write('Введите a и b через пробел: ');
Readln(a,b);
r:=a*b;
Writeln('Произведение равно ',r);
ReadKey
end.

0 0

4 года назад

ПОМОГИТЕ!! пожалуйста! составьте программу подсчета числа элемента одновременного массива, превосходящих среднее арифметическое

Seirus [532]

Программа написана на PascalABC.NET

// Ниже код:

program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.

0 0

4 года назад