Информатика.Задачи
Информатика.Задачи1 ) Дан массив У(7).Найти сумму положительный элементов массива.
2) Дан массив В(8). Все элементы массива больше 5 возвести в квадрат ,значение элементов массива меньше 5 удвоить , нулевые заменить на 5.
Помогите решить какую-нибудь из этих задач
2) Дан массив В(8). Все элементы массива больше 5 возвести в квадрат ,значение элементов массива меньше 5 удвоить , нулевые заменить на 5.
Помогите решить какую-нибудь из этих задач
Ответ(ы) на вопрос:
Гость
1) Borland Pascal 7.0: var a:array[1..7] of integer; s,i:integer; begin s:=0; for i:=1 to 7 do begin readln(a[ i ]); if a[ i ]>0 then s:=s+a[ i ]; end; write(s); end. Одной, я думаю, хватит. P.S. a[ i ] без пробелов в скобках. Тут правит фильтр данный случай, когда без пробела.
Гость
я точно не знаю но могу предполагать что так )) это через С++ #include "stdafx.h" #include "iostream.h" int main(int argc, char* argv[]) { int y[7], i, sum; for (i=0; i<7; i++) cin>>y; for(i=0; i<7 && i>0; i++) { if(i>0) sum+=y; else cout<<"no"<<endl;>; return 0; }
Не нашли ответ?
Похожие вопросы