Вывести созданный массив на экран, расположив элементы в одну строку через пробелы

15.06.2011, 11:42. **Показов** 4260. **Ответов** 1

Author24 — интернет-сервис помощи студентам

1. Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов в получившемся массиве.

@Artorios · 15.06.2011, 15:33

Pascal

Program w;
Uses crt;
Var A:array[1..200] of integer;
    i,n,kol,nch:integer;
Begin
  clrscr;
  repeat
    Write('Введите длину массива ');
    readLn(n);
  until (n > 0)and(n <= 200);
  randomize;
  kol:=0;  nch:=0;
  for i:=1 to n do
  begin
    A[i]:=random(101)-50;
    Write(A[i]:3,'  ');
    if i mod 15 = 0 then
      Writeln;
    if A[i] mod 3 = 0 then
      inc(kol);
    if A[i] mod 2 <> 0 then
      inc(nch);
  end;
WriteLn;WriteLn('Нечётных элементов  ',nch);
WriteLn('Элементов кратных трём  ',kol);
readLn;
end.

люшка
		1
	Вывести созданный массив на экран, расположив элементы в одну строку через пробелы 15.06.2011, 11:42. Показов 4260. Ответов 1 Метки нет (Все метки) 1. Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов в получившемся массиве.

	15.06.2011, 15:33

Вывести созданный массив на экран, расположив элементы в одну строку через пробелы

Решение