Консультации Портала - Консультация #108453

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 108453

07.11.2007, 18:22

0.00 руб.

0 1 1

Компьютеры Программирование

Уважаемые эксперты помогите с решением следующих задач по теме "Одномерные массивы".

1) Вычислить сумму элементов, больших заданного числа А в массиве В(N).
2) Разделить каждый элемент массива на первый элемент. Массив вывести на экран.
3)Найти и напечатать среднее арифметическое значение положительных элементов заданного массива.
4) Вычислить произведение
а)последних пяти элементов одномерного массива
б)первых пяти элементов массива.
5) Для заданного массива найти и напечатать элемент, значение которого максимально.
6)Для заданного масива определить и напечатать сумму элеметов с четными номерами.
7)Сформировать и напечатать массив А, каждый элемент которого представляет собой целую часть соответствующего элемента массива Х. Результат вывести на экран.
8)найти номера нулевых элементов массива.

Заранее всем большое спасибо!!!

Обсуждение

Неизвестный

07.11.2007, 22:03

общий

это ответ

Здравствуйте, Lifestyle!
Смотрите коды программ в приложении.

Приложение:
{108453_1}uses crt;var B:array[1..10]of integer; i,A,S:integer;begin clrscr; randomize; write(‘введите натуральное число A=‘); readln(A); for i:=1to 10 do begin B[i]:=1+random(10); if B[i]>A then S:=s+B[i]; write(B[i]:3); end; writeln; write(‘сумма чисел больше ‘,A,‘ =‘,S); readln;end.{108453_2}uses crt;var B:array[1..10]of real; i:integer; denominator:real;begin clrscr; randomize; for i:=1to 10 do begin B[i]:=1+random(10); write(B[i]:7:3); end; denominator:=B[1]; writeln; for i:=1to 10do begin B[i]:=B[i]/denominator; write(B[i]:7:3); end; readln;end.{108453_3}uses crt;var B:array[1..10]of integer; i,counter,S:integer;begin clrscr; randomize; S:=0; for i:=1to 10 do begin B[i]:=-10+random(21); write(B[i]:4); if B[i]>0 then begin S:=S+B[i]; counter:=counter+1; end; end; writeln; write(‘среднее арифметическое положительных элементов =‘,S/counter:3:3); readlnend.{108453_4a}uses crt;var B:array[1..10]of integer; i,P:integer;begin clrscr; randomize; P:=1; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; for i:=0to 4do begin P:=P*B[10-i]; end; write(‘произведение последних пяти элементов =‘,P); readln;end.{108453_4b}uses crt;var B:array[1..10]of integer; i,P:integer;begin clrscr; randomize; P:=1; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; for i:=1to 5do begin P:=P*B[i]; end; write(‘произведение первых пяти элементов =‘,P); readln;end.{108453_5}uses crt;var B:array[1..10]of integer; i,max:integer;begin clrscr; randomize; max:=0; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); end; writeln; max:=B[1]; for i:=1to 10do begin if B[i]>=max then max:=B[i]; end; write(‘максимальный элемент маасива =‘,max); readln;end.{108453_6}uses crt;var B:array[1..10]of integer; i,S:integer;begin clrscr; randomize; for i:=1to 10do begin B[i]:=1+random(10); write(B[i]:3); if i mod 2 = 0 then S:=S+B[i]; end; writeln; write(‘сумма четных элементов =‘,S); readln;end.{108453_7}uses crt;var X:array[1..10]of real; A:array[1..10]of integer; i:integer;begin clrscr; randomize; for i:=1to 10do begin X[i]:=1+random(10); write(X[i]:7:3); end; writeln; for i:=1to 10do begin A[i]:=trunc(X[i]); write(A[i]:7); end; readln;end.{108453_8}uses crt;var A,B:array[1..10]of integer; i,j:integer;begin clrscr; randomize; j:=1; for i:=1to 10do begin A[i]:=random(11); if A[i]=0 then begin textcolor(lightgreen); write(A[i]:3); B[j]:=i; j:=j+1; end else begin textcolor(white); write(A[i]:3); end end; writeln; textcolor(white); write(‘номера нулевых элементов :‘); for i:=1to j-1 do begin write(B[i]:3); if i=j-1 then write(‘.‘) else write(‘,‘) end; readln;end.

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.