сервис вопросов и ответовРешите пожалуйста ребят
10-11 класс|
|
Прикрепленные изображения
Katrinavakina
04 авг. 2014 г., 7:10:24 (9 лет назад)
пони5000
04 авг. 2014 г., 10:08:44 (9 лет назад)
const
n=18;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(20)-10;
write(a[i]:4)
end;
writeln;
s:=0;
for i:=1 to n do
if i mod 5 <> 0 then s:=s+sqr(a[i]);
writeln('Сумма равна ',s)
end.
Тестовое решение:
Исходный массив
3 1 -1 -5 8 7 3 -4 0 -3 -4 7 8 8 -1 -3 -8 7
Сумма равна 425
Ответить
Другие вопросы из категории
Помогите!)
1) Переведите число 229 из десятичной системы в восьмеричную
2)Переведите число ABC16 в десятичную систему
3)Переведите число 88 из десятичной системы в двоичную
4)Переведите в двоичную систему шестнадцатеричное число 9F4016
Читайте также
Помогите пожалуйста решить задачу в Pascal ( и если можно Блок схему ) . Найти произведение элементов массива, кратных 3 и 9. Размерность массива -10.
Заполнение массива осуществить случайными числами от 5 до 500. Срочном пожалуйста ребят !!
Люди,прошу вас, помогите пожалуйста, я уже долго сижу над этой задачей,не могу решить,пожалуйста помогите! =(((
найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (Решать без массива)
Решите пожалуйста!
Это информатика, 10 класс
Вопросы на фотографии
Номера 5 и 6 не надо решать
Помогите решить пожалуйста, как решить не представляю, а сроки поджимают, информатичка съест:'( 16 задача у меня, там 3 задания. P.S.
там она говорит что надо решать в Excel.
помогите решить пожалуйста. по паскалю 1. а) вычисления значения функции у = 7х2 - 3х + 6 при любом значении х;
б) вычисления значения функции х = 12а2 + 7а — 16 при любом значении а.
2.
даны катеты прямоугольного треугольника. Найти его гипотенузу
Вы находитесь на странице вопроса "Решите пожалуйста ребят", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.