помогите пожалуйста,нужно сделать блок схему и поскаль
10-11 класс
|
var
i:integer;
a,b:array[1..5]of integer;
c:array[1..5]of real;
begin
write('A');
for i:=1 to 5 do
begin
a[i]:=random(10)+1;
write(a[i]:6);
end;
writeln;
write('B');
for i:=1 to 5 do
begin
b[i]:=random(10)+1;
write(b[i]:6);
end;
writeln;
write('C ');
for i:=1 to 5 do
begin
c[i]:=sqrt(a[i]*b[i]);
write(c[i]:6:2);
end;
end.
Другие вопросы из категории
Расположить эти носители по возрастанию стоимость за 1 байт.А)D F C Б)D C F В) F D C Г)F C D
Ввод чисел пользователем заканчивается после ввода цифры 0.
C и, если существует, то какой он (равнобедренный, равносторонний, произвольный).
Заранее большое спасибо!
Читайте также
диаметр внутреннего шара равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.
Помогите пожалуйста, нужно составить блок схем и написать программу для вычисления значения следующего выражения:
Очень нужно! Заранее спасибо!
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
(задание номер 5 на фото)
Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.