Четверг, 28.03.2024, 22:22
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите пожалуйста с задачами про массивы!
помогите пожалуйста с задачами про массивы!
yurecДата: Воскресенье, 13.09.2009, 18:46 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
1) Найти сумму отрицательных элементов массива с. 10 элементов. любые элементы.
2) Поменять местами вторую с третьей строкой в массиве d.
3) В массиве А количество осадков от 1991 по 2003 г. Найти среднее значение отклонений от этого значения.
4) Напечатать Таблицу Пифагора.

Помогите с любой задачкой буду оч благодарен)

 
СтарыйДата: Четверг, 17.09.2009, 22:30 | Сообщение # 2
Рядовой
Группа: Новичок
Сообщений: 4
[ 1 ]
Статус: Offline
Quote (yurec)
) Найти сумму отрицательных элементов массива с. 10 элементов. любые элементы.
Помогите с любой задачкой буду оч благодарен)

Задача 1.
program summa;
var
a:array[1..10]of real;
s:real;
i:integer;
begin
s:=0;
for i:=1 to 10 do
read(a[i]); {заполняем массив числами}
for i:=1 to 10 do
if a[i]<0 then s:=s+a[i]; {если элемент отрицательный, добавляем его к сумме}
write(s); {печатаем результат}
end.
 
yurecДата: Понедельник, 28.09.2009, 19:51 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
cпасиб !!!!!
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите пожалуйста с задачами про массивы!
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024