Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>

0 0

4 года назад

Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. Ниже приведен рекомендуемый вид э

Maksim1988

Ответ:::::::::::::::::::::

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 года назад