Дан массив из 30 чисел. Числа целые от 100 до 500.
1. Вывести на массив строго через пробел
2. Вывести на экран строку через запятую все четные числа
Помогите срочно надо
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016
begin
var a:=ArrRandom(30,100,500); a.Println;
a.where(x->x.IsEven).Println(',')
end.
Пример
290 113 132 216 290 437 425 260 107 439 258 498 306 367 335 460 157 470 311 284 123 226 257 392 321 141 361 340 457 276
290,132,216,290,260,258,498,306,460,470,284,226,392,340,276
begin
var a:=ArrRandom(30,100,500); a.Println;
a.where(x->x.IsEven).Println(',')
end.
Пример
290 113 132 216 290 437 425 260 107 439 258 498 306 367 335 460 157 470 311 284 123 226 257 392 321 141 361 340 457 276
290,132,216,290,260,258,498,306,460,470,284,226,392,340,276
Ответил beyfong34
0
Мы такое не проходим еще мы только 9 класс
Ответил Аноним
0
Это не от класса зависит, а от уровня знаний самого преподавателя. Вы серьезно считаете, что длинные программы писать проще, чем короткие?
Ответил Issenpilon
0
var
i:integer;
mas: array [1..30] of integer;
begin
randomize;
for i:=1 to 30 do begin
mas[i]:=random(100,500);
write(mas[i], ' ');
end;
for i:=1 to 30 do begin
if mas[i] mod 2 = 0 then
write(mas[i], ',');
end;
end.
i:integer;
mas: array [1..30] of integer;
begin
randomize;
for i:=1 to 30 do begin
mas[i]:=random(100,500);
write(mas[i], ' ');
end;
for i:=1 to 30 do begin
if mas[i] mod 2 = 0 then
write(mas[i], ',');
end;
end.
Новые вопросы