Предмет: Информатика,
автор: чайника
Программисты помогите! нужно написать две программы на паскале с одним одномерным массивом чисел.
Приложения:

Ответы
Автор ответа:
0
program abc;constN = 6;vara: array[1..N] of integer;k,i,q,s,p : integer;beginS:=0;Q:=0;for i:= 1 to N dobeginWriteln('Введите значение элемента № ',i);Readln(a[i]);end;for i:= 1 to N dobeginif i mod 2 = 1 thena[i]:=a[i]*a[i]*a[i];if i mod 2 = 0 thena[i]:=a[i]*a[i];end;for i:= 1 to N dobeginif i mod 2 = 1 thens:=s+a[i];if i mod 2 = 0 thenq:=q+a[i];end;p:=s*q;Writeln('Ответ: ',p);end.
//N можно изменять как удобно
//N можно изменять как удобно
Похожие вопросы
Предмет: Геометрия,
автор: Govindacharandasi
Предмет: Английский язык,
автор: maryzak080
Предмет: Українська мова,
автор: muzicuklilia3
Предмет: Алгебра,
автор: Vikitori666
Предмет: Математика,
автор: виктор1111777